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Fort Worth Scene 




I am writing this column on a warm (70 degrees) January 
day just after the coldest December in Texas. One result of 
that cold December is that all of our computers froze (figura- 
tively, of course) which resulted in less material being pro- 
duced for this issue. 

LMP 2150 

The LMP-2150 is Radio Shack's first Line Matrix Printer. 
Effectively, a line matrix printer prints an entire line at a time. 
This makes the printer much faster than other dot matrix 
printers which print a character at a time. See the LMP 2150 
article for details. 

With the introduction of a line matrix printer, we may need 
to clarify some terminology. Here at Radio Shack we have 
used the term Line Printer when we have talked about our 
printers. I think that usage began to distinguish printers which 
printed information one line after another from screen printers 
which printed information one computer screenful at a time. 

In the printer industry, the printers which Radio Shack 
has always called Line Printers are known as Serial Printers. 
Serial because they print characters serially, one after 
another. A Line Printer prints a line at a time, like the new 
LMP 2150. 

Confused? I hope not, but if you are, just remember that 
a rose is still a rose no matter what name someone puts on it. 
Radio Shack offers printers to fit every need and budget. 
Virtually any size, capability, or price of printer can be found at 
Radio Shack. If you are in the market for a printer, check 
Radio Shack's printers for price, performance and flexibility. 

PTC-64 

The PTC-64 is a printer controller (sometimes called a 
print spooler) which fits between your computer and your 
printer. The PTC-64 can't speed up your printer, but it can free 
your computer from having to wait for the printer during long 
print jobs. 

I think the PTC-64 is one of the most compact and 
versatile printer controllers in the market today. The PTC-64 



has its own Z-80 microprocessor, and gives you as much as 
62K bytes of RAM for storing documents while they are being 
printed. 

SHORT ARTICLES 

We receive quite a few short articles every month. We 
use the ones that are immediately useful and file the rest for 
use at a later time as we need them. 

As with many human endeavors, we sometimes lose 
track of this material. For this issue we have pulled some of 
the really good articles which just didn't quite fit from month to 
month. 

We really appreciate the time and effort which many of 
you put into material that you send us. It is physically impos- 
sible to print all of the material, but we do want to acknowl- 
edge the valuable contribution that each person who sends 
us an article makes. Our thanks. J2 




The LMP 2150 and PTC-64 are two new products in Radio Shack's 
ever growing peripheral product line. 
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size TRS-80 Microcomputer systems with addresses in the 
United States, Puerto Rico. Canada and APO or FPO ad- 
dresses Certain smaller TRS-80 Microcomputers will not in- 
clude this free subscription Subscriptions to other addresses 
are not available 

The subscription rate for renewals and other interested 
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Microcomputer News may be purchased from Radio Shack 
Computer Centers or Computer Departments for $1.50 sug- 
gested retail each. 
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The TRS-80 Newsletter welcomes the receipt of computer 
programs, or other material which you would like to make availa- 
ble to users of TRS-80 Microcomputer systems In order for us to 
reprint your submission, you must specifically request that your 
material be considered for reprinting in the newsletter and pro- 
vide no notice that you retain copyrights or other exclusive rights 
in the material This assures that our readers may be permitted 
to recopy and use your material without creating any legal 
hassles 

Material for publication should be submitted on magnetic 
media (tape, disk, or CompuServe). If you submit material on 
tape or disk, and it is accepted for publication, we will send you 
two cassettes or diskettes for each one you sent us Cassettes 
will come from our box of mixed blank cassettes. If you submit 
material on CompuServe, and we think we may use the mate- 
rial, we will extend your Microcomputer News subscription by 
six months for each article accepted If you are submitting 
material over CompuServe, please include your name and ad- 
dress or your subscription number so we can find you. If the 
material is very short, send it to us in E-Mail If you have more 
than a few lines, you need to place the material in the ACCESS 
area of CompuServe and then let us know it is there by leaving a 
message on E-Mail. 

Material may be submitted by mail to P.O. Box 2910. Fort 
Worth. Texas 761 13-2910, or through CompuServe The 
Microcomputer News' CompuServe user ID number is 
70007,535 

Programs published in the Microcomputer News are pro- 
vided as is, for your information While we make reasonable 
efforts to ensure that the programs we publish here work as 
specified. Radio Shack can not assume any liability for the 
accuracy either of the programs themselves or of the results 
provided by the programs 

Further, while Microcomputer News is a product of Radio 
Shack, the programs and much of the information published 
here are not Radio Shack products, and as such can not be 
supported by our Computer Customer Service group If you 
have questions about a program in the Microcomputer News. 
your first option is to write directly to the author of the program 
When possible, we are now including author's addresses to 
facilitate communications. If the address is not published, or if 
you are not happy with the response you get. please write us 
here at Microcomputer News. We will try (given the limited size 
of our staff) to find an answer to your question and, in many 
cases, will publish the answer in an up-coming issue of Micro- 
computer News. 
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Education 



Two Classroom Packages by 
Children's Television Workshop 
Now Available From Radio Shack 



(Editor's Note: Children s Computer Workshop, an activity of 
Children's Television Workshop, developed the packages 
described in this article. Because the Children 's Computer 
Workshop is a division of Children 's Television Workshop, the 
Children's Television Workshop name was used in this 
article.) 

Two classroom packages developed by the Children's 
Television Workshop now are available through your local 
Radio Shack store or Computer Center. HANDS ON! is an 
introductory computer literacy package. PLAY WITH LAN- 
GUAGE is a Language Arts package for beginning readers. 
Both packages are designed for use on a 32K Color Com- 
puter disk system with Disk Extended Color BASIC. A joystick 
is needed to use PLAY WITH LANGUAGE. 







HANDS ON! contains two computer-literacy learning 
modules: BLACKBOARD and COLOR IT. BLACKBOARD 
introduces students to some of the communication capa- 
bilities of a computer. The program is a beginning word- 
processor that allows students to write on the "blackboard." 
then edit their work. Students can also set up a personal file 
system and edit it as desired. Finally, the activity provides the 
beginning of an electronic mail system in which students 
share their writing with others. Through BLACKBOARD, stu- 
dents are encouraged to explore the computer's capabilities 
as a tool for electronic manipulation of words and information. 




^^ 
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COLOR IT, the second computer-literacy program in 
HANDS ON!, demonstrates computer graphics by allowing 
students to draw pictures using the up, down, left and right 
arrow keys on the Color Computer. Students can control the 
color, shape, and speed of the cursor. The CED key is used to 
switch between pen down (drawing) or pen up (moving the 
cursor without drawing). The CTj key allows students to use 
computer functions such as shuffling colors, flipping a pic- 
ture, or moving a picture pixel by pixel. 

PLAY WITH LANGUAGE contains three language 
arts modules: PICTURE PLACE!, ROLL-A-WORD, and 
BAGASAURUS. 

In PICTURE PLACE! students associate sight words or 
beginning vocabulary words and their picture referents. The 
student chooses a background scene and then creates a 
picture using words as building blocks. The student selects 
words to move across the screen. When the student decides 
that a word is in place, he or she can change the word into a 
picture. 




ROLL-A-WORD is a linguistic activity which requires stu- 
dents to match pictures and words in order to complete 
sentences in original and clever ways. Words and their pic- 
ture referents are available in rhyming patterns, which means 
that increasingly successful play is linked to mastery of 
rhyming. 
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In BAGASAURUS, students practice reading compre- 
hension skills such as classification, following directions, and 
sequencing. Students also develop vocabulary through the 
use of synonyms, antonyms, and multiple meanings of 
words. The student is on a journey with a creature called 
BAGASAURUS. The student's task is to collect words and 
images by correctly answering questions. These words and 
images are used in stories later in the program. 

CLASSROOM MATERIALS IN HANDS ON! AND PLAY 
WITH LANGUAGE 

HANDS ON! and PLAY WITH LANGUAGE contain not 
only computer programs, but also a variety of ancillary teach- 
ing materials, and special features in the software designed to 
enhance the teaching experience. 

A Learning Manager feature in the computer programs 
for BLACKBOARD, COLOR IT, PICTURE PLACE!, and 
ROLL-A-WORD allows the teacher to assign students to dif- 
ferent levels of play, to customize lessons, or to save a stu- 
dent's work on disk. 

Teaching Extensions in the HANDS ON! and PLAY WITH 
LANGUAGE manuals provide suggestions for cognitive and 
affective activities keyed to the content and educational goals 
of each computer activity. 

Activity Cards are keyed to each computer activity. 
These bright, laminated cards contain ideas and instructions 
for more non-computer activities. 



From Color It 




FUN WITH WORDS BUILD A Dl ARAM A 




A colorful Game Board for each activity allows students 
to play while reinforcing their understanding of the instruc- 
tional content. 

Worksheet masters are included, to be reproduced by 
the teacher for use as class handouts. These also focus on 
the same educational goals as the software. 
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Look at the shapes on the bottom of the page Pick one. Copy the shape onto 
the first box. Then, follow the directions in each bo« Read carefully 

1 1983 CCV#~ CHILDREN'S COMPUTER WORKSHOP. AH ACTIVITY OF CHILDREN'S TELEVISION WORKSHOP 



HOW YOU CAN OBTAIN THESE PROGRAMS 

HANDS ON! (Cat. No. 26-2539) and PLAY WITH LAN- 
GUAGE (Cat. No. 26-2538) are now available from 
Radio Shack. Your local Radio Shack Computer Center may 
have these packages in stock, or they can be ordered 
through your local Radio Shack store or Computer Center. 
Suggested retail price for each package is $99.00 (prices 
may vary at individual stores and dealers). 

Two groups of educational games developed by Chil- 
dren's Television Workshop are available also from 
Radio Shack. Basic skills games for ages 3-6 feature the 
Muppet stars of Sesame Street. Included are Grover's Num- 
ber Rover, Big Bird's Special Delivery, Ernie's Magic Shapes, 
and Cookie Monster's Letter Crunch. Games in the "cooper- 
ation and strategy" series for ages 7 and over include Star 
Trap, Peanut Butter Panic! , and Taxi. The games run on a 1 6K 
Color Computer cassette system with Extended Color BASIC 
and joysticks. For more information, contact your local 
Radio Shack store or Computer Center. 



HANDS ON!™ and PLAY WITH LANGUAGE™ are trade- 
marks of Children's Television Workshop. J5 
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Peripherals 



The LMP 2150, A Line Matrix 
Printer 



By Bruce Elliott 



The LMP 2150 is Radio Shack's first Line Matrix Printer 
(LMP). Built to take the pressure of heavy-duty processing, 
the LMP 2150 is superb for big jobs like database reports, 
inventory reports or payroll. 

WHAT IS A LINE MATRIX PRINTER? 

Up to this point in time, Radio Shack has offered two 
basic types of printers. Serial Dot Matrix and Letter Quality. 

A Serial Dot Matrix printer from Radio Shack can be 
described as a printer which uses columns of dots to produce 
readable characters. The dot columns are a single character 
m height, and they are placed on the paper one column at a 
time by a print head which moves back and forth across the 
full width of the line being printed. Radio Shack has used a 
number of technologies to form the dots, including Impact, 
Thermal, and Ink Jet. 

A Letter Quality printer from Radio Shack is a printer 
which produces fully formed characters by using a Daisy 
Wheel. 

Now we come to Line Matrix Printers. A line matrix 
printer is a printer which prints ALL of the characters in a 
given row at one time. Gone is the print head which travels 
back and forth across the entire print line to create the charac- 
ters. The primary advantage of a Line Matrix Printer is speed. 

The LMP 2150 is recommended for the printer user who 
needs a heavy duty, long life printer requiring minimal mainte- 
nance to keep it printing. The high speed of the LMP 21 50 (80 
to 150 lines per minute), combined with its large character set 
and multiple printing fonts means that you don't have to buy 
several printers to get your work printed. 

The superior print quality of the LMP 2150 is produced 
using patented HammerBank technology. The Hammer 
Bank consists of 17 heavy duty, stored energy spring leaves. 
Each of these leaves prints the dots for eight characters in 
each line. The crisp, uniform dots overlap to create charac- 
ters so solid they are clear to the last copy of a six-part form. 

Quality construction and design give the LMP 2150 the 
highest mean time between failure (MTBF) rates in the indus- 
try. What this means to you is that you can expect the 
LMP 2150 to print heavy workloads with a minimum amount 
of preventative maintenance. Periodic readjustments typical 
of other printers are not needed for the LMP 2150. The print 
mechanism's one-piece unitized assembly gives precision 
dot placement that won't shift or get out of register. The only 
maintenence needed is periodic cleaning, typically every six 
months or 500 hours of operation. 




LMP 2150 CHARACTERISTICS 

Data processing characters (normal, compressed, and 
condensed) are created using a 5x9 dot matrix pattern. 
Correspondence quality characters are created using a 
7 x 1 2 dot matrix pattern. 

For maximum efficiency, the LMP 2150 operates in one 
of three modes: 

• Data processing mode for fast output 

• Word processing mode for letter writing 

• Graphics mode for drawing pictures, or graphs. 

The LMP 2150 can handle continuous fanfold paper 
ranging in width from 3-inches to 16-inches including the 
guide hole side strips. The printer can print one original with 
up to five copies (with or without carbon). Paper stock 
weights can range from 15 to 100 pounds. 

LMP 2150 comparative lines per minute (LPM) print 
speeds (no descender characters) among its various charac- 
ter sets: 



Correspondence Quality— 10 CPI 
Condensed— 16.7 CPI 
Standard-10 CPI 
Compressed— 12.5 CPI 

Characters per line: 

Correspondence Quality— 10 CPI 
Condensed— 16.7 CPI 
Standard— 10 CPI 
Compressed — 12.5 CPI 



80 


LPM 


100 


LPM 


150 


LPM 


125 


LPM 


132 




220 




132 




165 
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Dot positions per Horizontal line - 

Correspondence Quality - 10 CPI 2640 

Condensed - 16.7 CPI '2640 

Standard - 10 CPI 1584 

Compressed - 12.5 CPI 1980 

In the Graphics Mode there are 7 vertical dots available 
in each dot column and a variable number of horizontal 
columns depending on the mode the printer is in: 

Condensed 1320 
Standard 792 

Compressed 990 

On a per inch basis, all three graphic modes print 72 dots 
per inch vertically. The Condensed mode yields 100 dots per 
inch horizontally, while the Standard mode gives 60 dots per 
inch and the Compressed mode gives 75 dots per inch 
horizontally. 

Character Sets (Number of characters in each set) 



ASCII 


94 


American Special 


32 


European WP 


32 


Block Graphics 


30 



The LMP 2150 uses a built-in 8-bit parallel interface to the 
computer. 

The physical size of the printer is: 

24.6 inches wide 
10.3 inches high 

20.7 inches deep 
60 pounds 

The LMP 2150 (26-1272 $3995) is available at more 
than 1000 Radio Shack Computer Centers and participating 
Radio Shack Dealers nationwide. The 1-inch wide nylon fab- 
ric ribbon (26-1287, $12.95) is capable of printing 15 million 
characters per ribbon. The LMP 2150 is backed by depend- 
able Radio Shack service, with on-site service contracts 
available. 

The matching printer stand (26-4307 $149.95) is recom- 
mended for use with this printer. Regular printer stands may 
not hold up well under the stresses imposed by the 
LMP 2150. J3 



LRL Variables 



Don Hallden 

4629 W Walnut #2033 

Garland, TX 75042 



I have found the VAL function in Model III Disk BASIC to 
be of use in connection with defining FIELD lengths when 
using Random Access Files. The FIELD statement normally 
requires that the lengths of each field be entered as con- 
stants. If it is desirable to use variables for field lengths, this 
can be accomplished by entering the field length as a charac- 
ter variable and then applying the VAL function to the string 
variable in the FIELD statement. 



Example: 

100 LINE INPUT "ENTER LOGICAL RECORD LENGTH: 
110 OPEN "R", 1, "TESTFILE", VAL(LRL$) 
120 FIELD 1, VAL(LRL$) AS A$ 



"; LRL$ 



Note that the following will give a syntax error when RUN 
on the Model III: 



100 INPUT "ENTER LOGICAL RECORD LENGTH: 
110 OPEN "R", 1, "TESTFILE", LRL 
120 FIELD 1 , LRL AS A$ 



LRL 



-D 



TANDY COMPUTER BUSINESS USERS 

GROUP 

PROUDLY ANNOUNCES 

IT'S SECOND ANNUAL USERS 

CONFERENCE 

April 2, 3, and 4, 1984 

at the 

Americana Hotel 

Fort Worth, Texas 

Representatives from Radio Shack. Microsoft Cor- 
poration, Computer Software Design, Inc., Ovation Tech- 
nologies, Inc., and Digital Research, Inc. will be there. 
We urge you to attend this informative meeting of the 
business users minds. 

Room reservations may be made by contacting the 
Americana Hotel at 81 7-870-1 000. A special room rate is 
available for all conference attendees. To register for the 
conference, simply fill out the form below and return it 
with you payment to: 

Tandy Computer Business Users Group 

P.O. Box 17580 

Fort Worth, Texas 76102 

MAKE YOUR PLANS TO ATTEND TODAY! 

Yes, I/We plan to attend. Enclosed is a check in the 

amount of $ to register people. Please 

list the names and titles of the registrants as you would 
like them to appear on their name tags. 

Company Name: 

Names Titles 



Pre-Registration Fee: 

$ 90.00 ea. for Members 
$120.00 ea. for Non-Members 

At-The-Door Registration Fee: 

$100.00 ea. for Members 
$140.00 ea. for Non-Members 

THOSE WHO REGISTER BEFORE MARCH 31 , 1 984 

WILL BE ELIGIBLE FOR THE DOOR PRIZE 

DRAWING. 

If you'd like more information about the conference 

or about joining the Tandy Computer Business Users 

Group, please write to the above address. J3 
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Profile 



Defining Files for Profile Multi-User i 



The Small Computer Company 

P.O. Box 2910 

Fort Worth, TX 76113-2910 

By Ivan Sygoda, Director, Pentacle 

Copyright 1984, Ivan Sygoda. All rights reserved. 



This month we'll take our first close-up look at the multi- 
user version of Profile (26-6412, $499). It runs under 
TRS-XENIX on the Model 16 series of computers, and it's 
packed with features that give it power and flexibility only 
available, until now, on much more expensive machines. 

Although Profile 1 6 is very sophisticated, from the user's 
point of view, it is as simple — or even simpler — than 
Profile Plus or Profile III Plus. It is based on the same modular 
principles that have made the earlier Profiles so successful. 
I'll illustrate by setting up a relatively simple data base called 
"concerts," which I use to keep track of the dance concerts 
I'm supposed to attend as part of my business at Pentacle. 



Number 


Field Heading ■ 


- Len 


- - Type 


key 








segment: 








1 


Pentacle member, Audit (*/@) 


1 


* 


2 


Artistic Director last name 


15 


* 


3 


Artistic Director first name 


12 


* 


4 


Company Name 


30 


* 


5 


Company alpha key 


10 


allup 


6 


Concert location 


15 


* 


7 


Phone no. for reservations 


8 


phone 


8 


reservation made? (y/n) 


1 


yesno 


9 


A1) Day 


3 


day 


10 


A2) Date 


8 


mdy/ 


11 


A3) Time 


5 


hrmm 


12 


A4) Go?( + ) 


1 


* 


13 


A1) Day 2 


3 


day 


14 


A2) Date 2 


8 


mdy/ 


15 


A3) Time 2 


5 


hrmin 


16 


A4) Go 2? ( + ) 


1 


* 


17 


A1) Day 3 


3 


day 


18 


A2) Date 3 


8 


mdy/ 


19 


A3) Time 3 


5 


hrmin 


20 


A4) Go 3? (+) 


1 


* 


21 


A1) Day 4 


3 


day 


22 


A2) Date 4 


8 


mdy/ 


23 


A3) Time 4 


5 


hrmin 


24 


A4) Go 4^ ( + ) 


1 


* 


25 


A1) Day 5 


3 


day 


26 


A2) Date 5 


8 


mdy/ 


27 


A3) Time 5 


5 


hrmin 


28 


A4)Go5?( + ) 


1 


* 


29 


Note 


70 


* 


Key segment record length: 247 






There is 


no data segment. 







Figure 1 : The Fields Defined for "concerts' 



Along the way, I'll concentrate on the ways Profile 16 differs 
from its TRSDOS-based cousins. 

ITS A SCREEN! 

Figure 1 lists the fields I defined for "concerts." The 
illustration resembles the print-outs you get with Profile II and 
III, but if you look closely, you'll see some significant differ- 
ences—the labels for associated fields and the strange 
names listed under "type." I'll come back to these in a mo- 
ment. One of the most wonderful enhancements can only be 
seen on the "Define Files" screen itself. Instead of viewing 
fields one by one, they all appear on the screen as you create 
them. You can shuffle the fields around, change their lengths 
and headings and then shuffle them again until you're satis- 
fied with the result. In addition to being faster and more 
convenient, it lets you keep the total picture in mind as you 
go along. 

Associated fields have been improved tenfold. 
Profile Plus and Profile III Plus allow you to tie the fields 
together by grouping them under any of the 26 letters of the 
alphabet. This establishes a vertical list, so to speak, through 
which the computer can scan for a particular item. Profile 16 
lets you enlarge this list into a two-dimensional grid by spec- 
ifying letter-number combinations. 

Figure 2 illustrates how I applied this to "concerts." 
When dance companies are invited to perform, they are 
generally expected to give three to five performances spread 
out over a weekend. I've numbered the performances 1 to 5. 
The first column lists the day. which is associated field A1 (see 
figure 1 again). The second column shows the correspond- 
ing date, associated field A4, where I indicate which perfor- 
mance I plan to attend. I can scan, sort, and select according 
to any item in one of the vertical columns. 

For instance: Which concerts can I attend on Friday? Is 
there a matinee on the 1 2th? When am I supposed to see the 
Acme company? I simply print a chronological list of next 
week's performances. 

This "grid" can be up to 26 rows deep (A-Z) and up to 1 
columns wide (A0, which is the same as A, to A9, B0-B9, 
etc.). What's more, the "horizontal" information tied to a 
particular item always surfaces with it! That's rather amazing. 

Associated fields can be tricky. (See my article in the April 
1983 Microcomputer News.) Profile 16 has certain functions 
that enable you to work your way around the pitfalls. We'll 
examine these in coming months. 

TYPE CASTING 

Look again at figure 1 . About the only thing you'll recog- 
nize (from "Define Screens" in the earlier programs) in the list 
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Dec 1 13:46 1983 



File Name: concerts 



Screen #1 



Page 1 



Concert Schedule 

Name of Company: : : : : *4 / Alpha key: *5 

Artistic Director::: (Last) *2 / (First) *3 / 

Type <*> if Pentacle member, <@> if concert is to be audited: *1 



Location of Concert: *6 / 

Phone number for reservations: *7 / 



Reservation made? (y/n) *8 





Performance 


Day 


Date 




Time 




Go?(+) 




1 


*9 / 


*10 


/ 


*11 


/ 


*12 




2 


*13 


• 14 




*15 




*16 




3 


*17 


*18 




*19 




*20 




4 


*21 


*22 




*23 




*24 




5 


*25 


*26 




•27 




*28 


Note: 


•29 















Record number ! @RN / 

Created ! @CD by ! @CB / 

Updated ! @UD by ! @UB / 

Last batch update: ! @BD / 

Figure 2: Screen 1 Format and Cursor Path 

of field types is " * ". This is the default type: letters, numbers, 
punctuation, and spaces. In Profile II and III, field types were 
defined when you set up your screens. In Profile 1 6, they are 
specified at file definition. This gives you access to a whole 
range of field edits that have two main purposes. First, they 
make data entry more accurate by permitting the user to 
enter only the type of information that is appropriate to a 
particular field. Second, they make data entry faster and 
easier because you can use them to create short-cuts— 
automatically formatting an entry or supplying characters, for 
instance. 

The alphanumeric (" * ") edit type is one of many system 
edits that govern entry of numbers, dates, and times. The "." 
edit allows digits and the decimal point, automatically supply- 
ing two decimal places and right-justifying the number in the 
field, ".n" works just like the preceding but supplies to 8 
decimal places, depending on what number replaces the 
"n". "F" indicates floating decimal format. 

There are 12 kinds of date formats allowing almost any 
permutation; from slashed to unslashed, and from two- to 
four-digit years. More important, every one of them sorts 
properly! Entering "/" into a date field automatically supplies 
today's date in the requested format. Shortened entries in- 
volving slashes automatically "fill-out." For instance, if you 
type "4/1/84," it appears on the screen as "04/01/84." 
No fooling! 

Finally, there are two time edits: HMS for hours:minutes- 
:seconds, and TIME, which accepts 00:00:00 to 23:59:59. 
Entering a colon will supply the current time, and abbreviated 
entries will be expanded just as date entries are. The White 
Rabbit would have loved it. As you can see, I use the "MDY/" 
date edit for fields 10, 14, 18, 22, and 26. 

System edits are built into the system and cannot be 
changed; they are simply there for you to take advantage of 
as you wish. 



Cursor 


path: 


4 


23 


5 


25 


2 


26 


3 


27 


TAB 


TAB 


1 


29 


6 


TAB 


7 


12 


TAB 


16 


9 


20 


10 


24 


11 


28 


13 


TAB 


14 


8 


15 




17 




18 




19 




21 




22 





GLOBAL CONCERNS 

Another group of edits, called global edits, also comes 
with Profi'e 16. Like the system edits, global edits are built into 
the system and can be used in any data base file that calls 
them; however, unlike system edits, they can be modified and 
added to by the user. The limit is 100. 

The global edits that change the format of entries in 
various ways are the ones you'll probably use most. For 
example, the "$" field type supplies the dollar sign, accepts 
digits from 0-9, adds the point and two decimal places, and 
right-justifies the result. "PHONE" accomplishes one of two 
things, depending on the field length and the number of 
characters entered. It automatically turns 8173903935 into 
(81 7) 390-3935 and 5551 21 2 into 555-1 21 2. "SSNUM" turns 
123456789 into 123-45-6789. "ZIP" accepts either 5 or 9 
digits, automatically supplying the aash for the ten- 
character code. 

Another type of global edit restricts data entry to sets of 
alternatives. "YESNO" lets you enter only "Y", "y", "N", or 
"n" and converts the character entered to upper case, "SEX" 
does the same thing for "F" or "M". 

A third group of global edits makes cosmetic changes in 
input. "ALLUP" converts all characters entered to upper- 
case. I used this edit in my field 5 to ensure that my alphabeti- 
zation key would not be affected by upper/lower case 
differences. "UPLOW" converts only the first character of a 
word, usually a name, to upper-case, and the following char- 
acter to lower-case. 

The remaining global edits "filter" data entry, and are 
used mainly to build other edits, both global edits and local 
edits. Local edits are entirely user-defined. Whereas you can 
have up to 1 00 global edits in your entire data base, you can 
define up to 1 00 local edits for each data base file. Local edits 
apply only to the file in which they were created. 
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— Name — Edit 



HRMIN \ N N <": n > N N | N <":"> N N 

DAY * M th"<u> I n 3u"<n> | "m M <o><n> I "t"<u><e> I "w"<e><d> I "f M <r><i> | "g"<a><t> 



Figure 3: The Edit Dictionary for "Concerts" 

LOCALS 

I made two local edits for "concerts." Since both time 
edits count seconds, which are irrelevant for concert starting 
times. I invented "HRMIN." "830" becomes "8:30" automati- 
cally. "DAY" changes "M" or "m" to "mon," "T" or "t" or "tu" 
to "tue." etc. 

Figure 3 shows the local "Edit Dictionary" for "con- 
certs." T ' °se edits could have just as easily been added to 
the list of global edits and thereby be available for all files. The 
letters and punctuation marks are all part of the syntax used 
to define an edit. They form a concise and powerful "lan- 
guage," which we'll explore in a future article. 

FURTHER AFIELD 

Looking again at figure 2, you'll notice something else 
new. The two-letter combinations preceded by "@" are "sys- 
tem-maintained" fields. They automatically keep track of 
such things as record number and date of last update without 
you having to define fields for this information or enter it 
manually. The system "remembers" it whether or not you 
choose to display it on a screen or report. The complete list of 
system fields is shown in figure 4, with the length allotted 
to each, 

System-Maintained Fields 
record number; leave eight spaces 
today's date, MM/DD/YY; leave eight spaces 
date record first used; leave eight spaces 
date last updated; leave eight spaces 
date last updated in batch; leave eight spaces 
operator ID; leave eight spaces 
record first used by; leave eight spaces 
last updated by; leave eight spaces 
time; leave eight spaces 
screen number (processing only) 
page number; leave five spaces 
number of records selected per subtotal section; 
leive eight spaces 

*ents of subtotal field 
suutotal field heading 

date, spelled out (i.e., Feb. 10, 1985); leave 15 
spaces 
format name 
total number of records selected 



@RN 

@TD 

@CD 

@UD 

@BD 

@ID 

@CB 

@UB 

@TM 

@SN 

@PN 

@RS 



@DT 

@FN 
@TS 
Figure 4: System Fields 

HEY, DUMMY! 

There's yet another type of field which is available for 
display on screens and in reports, but which isn't defined 
when you set up your file. This is the so-called "dummy" field, 
which is defined on the processing tables you can create for 
your data base. I don't have space this month to describe the 
processing tables, but here's a simple example to whet your 
appetite. 

My field 2 is a last-name field (length 15) and field 3 is a 
first-name (length 12). There is no "push left" field for screen 



formats, but I can achieve the same result by using the 
automatic processing table, as follows. Dummy fields are 
assigned names consisting of one or two letters. Since what I 
want to appear in this field is first name/space/last name, I 
write the following "formula" on the first "action line" of the 
table: NM = 32. 1 allow 28 spaces on the screen, since that is 
the maximum possible combined length of the dummy field. 
Whenever the record is accessed by Profile, the name ap- 
pears on the screen where indicated by "!NM". As you'll see 
in future articles, the processing tables are very talented. 

FOR PROFILE PLUS AND III PLUS USERS: A BETTER 
WAY TO MAKE BACKUPS 

Every manual you've ever read cautions you to make 
frequent backups of your data diskettes. Some users follow 
this advice and never have a problem. Others take chances 
and eventually learn the hard way— by losing hours or even 
months of work. 

Diskettes are fragile, and any of a dozen environmental 
hazards can make your data unreadable. That's reason 
enough to become religious about backup procedures. Yet 
we recently had a misadventure at Pentacle against which 
our normal routine was insufficient protection. We have a 
three-drive Model III, which is often used for three-disk Profile 
files (one runtime disk, write-protected, with all the format 
programs, and two data disks, which we back up after each 
work session). 

To make a long story short, one of the drives went out 
alignment, but slowly. It worked until the moment it crossed 
some mysterious threshold, whereupon it developed a taste 
for destroying disks. 

Of course, we got the computer fixed immediately. But 
then the backup disks wouldn't work! Since they had been 
made on the misaligned drive, they could only be read by an 
equally misaligned drive. Rivulets of sweat coursed down my 
body as I pictured an irate client and twelve months of work 
out the window. 

I put the disks in my briefcase and made the rounds of 
everyone I knew with a Model III, seeking a needle in a 
haystack— a drive not so misaligned it wouldn't work, but 
enough to read my orphaned disks. Believe it or not, I found 
one, and saved both my data and my derriere. 

THE MORAL 

Never make backups in such a way that all copies of a 
disk are created in any one drive. If you backup from :1 to :2 
to update copy A, switch the source disk and go from :2 to :1 
to make copy B. In other words, don't put all your eggs in 
one drive. 

PROFILE Editor's Note: This is Mr. Sygoda's sixteenth 
article in a series of 'how-to ' Profile articles. We hope that you 
enjoy this feature, and we look forward to your comments 
and questions on Profile. 

Pentacle is a ftew York City-based non-profit service 
organization specializing in administrative services for per- 
forming art groups. «£l 
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Computer Customer Service 



Xenix cu Utility 



Call up is a communications program included free of 
charge as a utility on the Xenix 1 .3 core diskette. Version 1 .3 
of the core package should be readily available at the time of 
this writing. If you are running an older version, please visit 
your nearest Radio Shack Computer Center and ask them to 
order the following upgrades for you. If you have never 
initialized the hard disk with Xenix, order 700-2052. If you are 
upgrading your system from a previous version of Xenix, 
order the upgrade 700-2066. This article assumes you are 
working with Xenix version 1 .3 

The cu utility allows one Xenix system to communicate 
and exchange files with other Xenix systems. It is also possi- 
ble to use cu to dial some non-Xenix systems. Please notice 
I said some non-Xenix systems. Cu uses an asynchronous 
protocol and an ASCII character encoding scheme. The 
default UART settings are an eight bit word length, no parity 
bit, and one stop bit. The user can temporarily modify the 
word length and the parity, but the communication protocol, 
the number of stop bits, and the ASCII character encoding 
are fixed. So if you need to transmit a file to a system using two 
stop bits or a synchronous protocol, cu should not be used. 

The first step in readying your system to use cu is to 
disable device tty01. To do this type: 



To disconnect from the host and exit the cu program, 



disable tty01 cent er : 

The Radio Shack modem you purchase for use with cu 
should be a Modem II (26-1173) or a DC-1200 baud modem 
with auto dialer board (76-1005 & 76-1009). These two mo- 
dems possess auto-dial and auto-answer capabilities. If you 
choose to use any other modem, be aware that the call up 
utility's auto dial features will not work properly. 





Read the addendums provided with the Xenix 1 .3 core 
software to determine the correct method of configuring your 
modem. Next connect one end of an RS232C cable to the top 
most DB-25 connector at the rear of the computer. The other 
end of the cable should then be connected to the DB-25 
found at the rear of the modem. 

In our first example let us assume you are going to 
manually dial a number using cu. To start the cu utility you 
would type the following: 

cu wait -s baud rate -a /dev/null -I /dev/tty01 

(ENTER' 

The message "connected" should appear on the 
screen. At this time, manually dial the phone number and 
place the modem in the originate mode. You are now on line 
with the host system. 



type: 

fCTTTiT 6 

You should now be back at the shell prompt. 
Now let us use the auto-dial feature of cu to call up the 
same system. Type: 

cu phone number -s baud rate 

That is all there is to auto dialing. When the carrier is 
received by your modem, the message "connected" will 
appear on your screen. You are now on-line with the host. 

Now that we have dialed the system and logged in, let us 
examine the uploading capabilities of cu. If you are dialing 
another xenix system, you can simply use the "put" com- 
mand as shown in the manual. Again press ;ct R L ) 6. You 
should see the tilde symbol appear. Then continue typing on 
the same line: 

%put from source-filename to destination- 
filename 

This command takes the source-file from the local sys- 
tem and copies it to the destination-filename on the remote 
system. This command requires that the directory you are 
writing to have write permission for the category "other". If 
you are unfamiliar with changing directory permissions, read 
up on the chmod command in your manual. 

If you are connected with a non-xenix system, you 
should type: 

(C trl ) 6 < filename e nt er 

This command dumps the contents of the file from the 
local system out to the RS232C port. The software on the 
remote system must be capable of capturing the information 
into RAM or writing it to disk using xon/xoff flow control. 

The download features of cu seem to confuse many of its 
users. When downloading to another xenix system, you can 
use the "take" command. This command takes a file off the 
remote system and transfers it to the local system. The com- 
mand "take" is shown below. 

[Ctrl) 6%take from source-filename to 
destination-filename 

The process becomes a bit more difficult when connect- 
ing with a non-xenix system. 

All the information required to download a file from a non- 
xenix system to a xenix system is provided by the non-xenix 
system. The sender must transmit the following to the xenix 
system. 
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(CTRL ) J 
( CTRL) 6 
EN TERS 



destination-filename c c T r l J 



This command line starts the file diversion into the file 
specified on the local system. Again let me stress that nothing 
is typed from the xenix system. All these commands are sent 
from the remote location to you. Any data following the com- 
mand line will be routed to the file specified in the command 
line. Following the data should be the command line to end 
the diversion and close the file. That command is: 



(CTRL ) J 
(CTRL : 6 > 



CTRT1 J (ENT ER 



The destination-filename used by the remote system 
must reside in a directory which grants write permission to the 
"other" category. 

The last command of cu I wish to cover is the command 
that temporarily exits cu and invokes the interactive shell of 
the local system. It is while using this command that the user 
can change the default word length and parity settings. While 
in cu type: 



CTRLl 6! 

This command jumps back to the shell prompt where the 
user can then use the "stty" command to change the word 
length and parity parameters. To return to cu, simply press: 

fCTRLl d 

I hope this brief introduction to the call up utility will spark 
your curiosity in Xenix communications. The utility is rela- 
tively easy to use once you get the hang of it. J3 



Typewriter 



Jay A. Jolicoeur 

Cullinan Engineering Co., Inc. 

200 Auburn St. 

Auburn, MA 01501 



Below is a modification to David Salisbury's typewriter 
program. I use this program with my office Model II. 

My main problem is that I make a lot of typing mistakes 
and found myself retyping quite a few letters, but they weren't 
long enough or important enough for SCRIPSIT. 




This program is a modification of Mr. Salisbury's pro- 
gram using an input routine that I use on most of my BASIC 
programs. It allows the user to type in the entire line before it is 
printed on the printer and make any necessary corrections. 
This saves a lot of correction fluid. Also, a blank, reverse line 
the length of the designated line is displayed to help deter- 
mine when the margin is near. 

With this program I no longer have any need for my 
typewriter or messy corrections. Now, all I need is to create a 
spell check program. 

100 '* * TYPEWRITER * * 

110 CLEAR 1000 

: DEFINT A-Z 

120 CLS 

: PRINT @ (1, 25), "* * Model II Typewriter * 
*". 

: PRINT (2, 30), "Press [Fl ] to exit"; 

: PRINT 9 (3, 25), "Set margins (0 - 132) Left 
>i . 

LINE INPUT L$ 
L«VAL(L$) 

PRINT (A, 46), "Right "; 
LINE INPUT A$ 
A*VAL(A$) 
R=A - L 
CLS 
130 PRINT TAB(L) CHR$(26); STRING$(R, " "); CHR$(25); 

: PRINT @ (ROW(X), L), ""; 
140 F-0 

: W=l 

: W$«STRING$(132, " ") 
150 C$-INKEY$ 

: IF C$«"" THEN 150 ELSE IF C$-CHR$(1) THEN 
LPRINT CHR$(12) 
: END 
160 IF C$-CHR$(8) THEN PRINT C$ ; " "; CHR$(28); 
: W-W - 1 

: MID$(W$, W, 1)-CHR$(32) 
: GOTO 150 
170 IF P0S(X)>A THEN F-l 

180 IF F-l THEN IF C$=CHR$(32) THEN C$=CHR$(13) 
190 MID$(W$, W, 1)-C$ 
: W-W + 1 
: PRINT C$; 
200 IF C$-CHR$(13) THEN LPRINT TAB(L) MID$(W$, 1, 
W-l); 
: GOTO 130 ELSE 150 ^H 



fi 



W 




' 



Computer Customer Service 
Address and Phone Numbers 

8AM to 5PM Central Time 

Computer Customer Services 

400 Atrium, One Tandy Center 

Fort Worth, Texas 76102 



Productivity/Special Applications 

Accounting Software 

O/S and Languages, Group No. 1 

O/S and Languages, Group No. 2 

Hardware and Communications 

Home Software 

Educational Software 

Newsletter Subscription Problems 



(817)338- 
(817)338- 
(817)338- 
(817)338- 
(817)338- 
(817)338- 
(817)338- 
(817)870- 



2390 
2391 
2392 
2393 
2394 
2395 
2396 
0407 
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XENIX Notes 



Kralg Snodgrass 

Drake University Physical Plant 

1422 27th 

Des Moines, Iowa 50311 



I am writing in response to your October 1 983 Microcom- 
puter News article about the TRS-XENIX operating system. 
The article was titled "TRS-XENIX POWER" and appeared on 
pages 24-27. Information contained within the article has 
been very helpful and timely in the startup of TRS-XENIX here 
at Drake University. 

After following your instructions on pages 24-25 in refer- 
ence to the user shutdown procedure, I found what ap- 
peared to be a major problem with the method used to 
perform a shutdown. When the command for shutdown is put 
into a .profile file in the /usr/shutdown directory, all it takes to 
abort shutdown during execution from a DT-1 terminal is a 
power down. 

When the power is turned back on, the terminal is not 
doing a shutdown but has a '#' prompt. When the system was 
inquired as to 'who am i", it replied that it was 'shutdown' . This 
'shutdown' has all of the same abilities as 'root'. 

The solution to this problem is quite easy. If you wish to 
leave shutdown as a valid login command, you can modify 
the /etc/passwd file to execute the /etc/shutdown program 
only. This, however, gives the end user a choice of how long 
until the shutdown. 

A slightly more complicated solution is to build a file that 
has appended the number of minutes till shutdown to the 
/etc/shutdown command. This command would look like this: 

/etc/shutdown 15 

Care should be taken to write-protect this file to prevent 
other users from changing it. If changed, this file could be 
used by a user to simulate 'root' abilities. 

XENIX SHELLS 

Below are sections of TRS-XENIX shell programs used 
by our office to facilitate operations. All of these programs are 
called as logins and allow other users to perform operations 
even when a root user is not present. Any of these programs 
could be assigned a password by the root user with the 
passwd command. Care must be taken in any of these pro- 
grams not to allow other users access to change them. 
TO LOGIN AS 'save' MAKE THESE CHANGES— 
This is a portion of the TRS-XENIX program /usr/bin/ 
save: 



Save and restore user files 

Copyright 1983 by Tandy Corporation 

Tim Dorgan - 12/82 

This program has been modified to allow any user to 
request a save from the console as a login 
command. It also forces floppy disk verification 
on. 

- Kraig Snodgrass - 11/17/83 



/etc/verify -f y 

PATH-/bin:/usr/bin 

if expr "'who am i'" : M .*console .*" > /dev/null 

then : okay 

else echo "Save/Restore must be run from console 

with disk drives" 

exit 
fi 

The /etc/passwd file appears like this to login as save: 

save: : 0: t>: save procedure : / us r/ save ./usr/bin/ save 

TO LOGIN AS 'shutdown' MAKE THESE CHANGES- 
This is a portion of the TRS-XENIX program /etc/ 
shutdown : 

: "arw 3/22/81 shutdown command 
shutdown [time] [su] 

bring the system down gracefully and ruthlessly. 

1. Warn users. 

2. Kill off any user or daemon task*. 

3. Dismount disks. 

it. sync and halt processor, or go single user. 



This program has been modified to allow any user to 

shut the system down from the console as a login 
command. 
Kraig Snodgrass - 11/22/83 

/etc/verify -f y 

PATH-/bin:/usr/bin 

if expr "'who am i'" : ".*console.*" > /dev/null 

then : okay 

else echo "Shutdown must be run from the console" 

exit 
fi 

This is the program /etc/shutdown. 15 : 

This program is called by a login 'shutdown' and 

calls and passes a 15 time to /etc/shutdown 
Kraig Snodgrass - 11/22/83 

/etc/shutdown 15 



The /etc/passwd file appears like this to login as 
shutdown: 

shutdown: : 0: 0: shutdown utility 

: /usr/shutdownr/etc/shutdown. 15 

The following are shell programs I created to allow our 
office personnel to modify the spooler-printer environment 
without being root. 
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TO LOGIN AS 'spoolon' CREATE THIS FILE AS /etc/ 
spoolon 



Spoolon login control 

This program will remove the "daemon-lock" from 
"/usr/spool/ lpd" if there is a printer failure 
of a lock statement. This allows you to restart 
a printout from the beginning. This program has 
a nasty habit of trying to hurt itself by trying 
to kill a pid for the grep. Will give a 'pid#: 
No such process' but does not affect its 
operat ion. 

Kraig Snodgrass - 12/08/83 

PATH*/bin:/usr/bin 

if expr "' who am i '" : ".*console .*" > /dev/null 

then : okay 

else echo "Spoolon must be run from the console" 

exit 
f i 



rm /usr/spool/ lpd/ lock 

pids*'ps ax | tail +4 | grep ".*ipd.*" | sed -e 

's/ *\([0-9]*\) .*/\l/" 
if test ! -z "$pids" 
then 

echo kill -9 $pids 

kill -9 $pids 

sleep 5 
fi 

/usr/lib/lpd 

echo "Spoolon now completed" 

The /etc/passwd file appears like this to login as save: 

spoolon :: J): 0: star t spool out 

:/usr/spoolon: /etc/spool on 

TO LOGIN AS 'spooloff' CREATE THIS FILE AS— /etc/ 
spooloff 

Spooloff login control 

This program will leave the spooler on, but prevent 
output to the printer and will set a lock 
statement "dummy daemon", if the printer is not 
on at the time this program is run. 

Kraig Snodgrass - 12/08/83 

PATH"»/bin:/usr/bin 

if expr "' who am i '" : ".*console .*" > /dev/null 

then : okay 

else echo "Spooloff must be run from the console. ' 

exit 
f i 

if test -f "/usr/spool/ lpd/lock" 

then echo "Spooloff must wait until printer is 

done" 

exit 
else : okay 
fi 

who am i > /usr/spool/ lpd/lock 

echo "Spooloff now completed" 

The /etc/passwd file appears like this to login as spooloff: 

spoolof f : : 0: 0: stop spool out 

: /usr/spoolof f : /etc/spoolof f J3 



MAGAZINES 



Below are nine magazines of special interest to TRS-80 
owners that we believe have editorial content of high quality 
and will be of use to our customers. 

Basic Computing— The TRS-80 

User Journal 

3838 South Warner Street 

Tacoma, WA 98409 

(206)475-2219 

Color Computer Magazine 
Highland Hill 
Camden, ME 04843 
(207)236-9621 

Computer User 
16704 Marquardt Ave. 
Cerritos, CA 90701 
80 Micro 
P.O. Box 981 
Farmingdale, NY 11737 

Hot CoCo 
P.O. Box 975 
Farmingdale, NY 11737 

Portable 100— The Magazine for 

Model 100 Users 
P.O. Box 468 
Hasbrouck Heights. NJ 07604 

PCM— The Portable Computing Magazine 
9529 U.S. Highway 42 
P.O. Box 209 
Prospect, KY 40059 

Rainbow (Covers the TRS-80 Color Computer) 
P.O. Box 209 
Prospect KY 40059 
(502)228-4492 

two/sixteen magazine 

P.O. Box 1216 

Lancaster, PA 17603 

(717)397-3364 J3 

Descending Sort 

Bruce Lewis 

Box 395 

Osceola, MO 64776 

I call the following sort a descending sort. 

In the first pass, it goes downward from the second item. 
If the current item is less than the first item, then it is switched 
with the first item. In the second pass, it goes downward from 
the third item, and performs switches with the second item, 
etc. 

Here is the subroutine: 

1(200 FOR 1-0 TO N 
1010 FOR J-I TO N 
1020 IF ITEM(J) < ITEM (I) THEN EXTRA - ITEM(I) 

: ITEM(I) = ITEM(J) 

: ITEM(J) % EXTRA 
1030 NEXT J, I 
1040 RETURN 

Note: N is the size of the array to be sorted. J3 
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Peripherals 



PTC-64 Printer Controller 



By Bruce Elliott 



The PTC-64 Printer Controller (26-1269 $249.95) is a 
small box which is hooked between your computer and your 
printer. The computer thinks that the PTC-64 is a printer, and 
your printer thinks that the PTC-64 is your computer. What the 
PTC-64 really is, is a second computer. The function of the 
PTC-64 is to accept printer information as fast as your com- 
puter can send it, store the information in PTC-64 RAM, and 
then feed the information to your printer as fast as the printer 
can accept it. 

WHY WOULD I WANT TO DO THAT? 

Several years ago, back in the days when Model lis 
were new and printers were generally slower than they are 
now, I wrote a BASIC program to write a report. The first 
version of the program would write a line of information to the 
printer, return, calculate the next line, write it, etc. We had to 
scrape that version because it took over twelve hours to print 
the reports. Part of the problem, I'm sure, was my program 
but most of the time was spent waiting for the printer to print its 
one line of information so the computer could continue com- 
puting. If I had had access to a PTC-64Printer Controller, my 
programming job would have been over with the first version 
of the program. The computer could have sent its information 
to the PTC-64 at high speed, and the PTC-64 would then 
have fed the printer at its much slower rate. 

In general, when your computer sends a character to 
your printer, the computer must wait for the printer to ac- 
knowledge the receipt of that character before the computer 
can do anything else. Since most printers are slower than the 
computers they are attached to, this means that your com- 
puter has to stop and wait every time it sends information to 
be printed. Waiting takes time, and means that whatever else 
the computer could be doing isn't being done. 

The PTC-64, with its own Z-80 microprocessor and 64K 
of RAM, can accept information much faster than most print- 
ers. Your computer can send its information to the PTC-64 at a 
very high speed. The result, from your computer's point of 
view is that the information has been printed. As the informa- 
tion is being accepted from the computer at high speed, the 
PTC-64 begins sending the information to your printer as 
rapidly as your printer can accept it. The net result is that your 
computer is freed to do more work, and your reports still get 
printed. 

WHAT ELSE CAN THE PTC-64 DO? 
Multiple Copies of Documents 

Another feature of the PTC-64 is its ability to print multiple 
copies of any document which is small enough to fit in the 
PTC-64 memory. If you need three copies of a SCRIPSIT 
document, you can tell SCRIPSIT to print three copies (and tie 
up your computer for all the time that printing those copies will 




take) or you can dump the document into the PTC-64 and 
have the PTC-64 print the three copies. 

While your DWP-210 is working along at top speed 
making duplicates of the document under control of the 
PTC-64, you can be using the computer for any other job that 
you may have. 

Special Characters 

Another feature of the PTC-64 is its ability to store special 
characters or character sequences. When the PTC-64 is 
powered up, it contains definitions for 16 dot matrix charac- 
ters. If you have a Radio Shack dot matrix printer with bit 
image capabilities (LP VII, LP VIII, DMP 1 00, 1 1 0, 1 20, 200, 
400, 420, 500, 2100, 2150 or the CGP-220) you can use 
these special characters, which may not be normally availa- 
ble in your printer. 

You can also redefine the characters to suit your needs. 
Each of the special characters can hold up to 24 bytes of 
data. The data in the character can be bit image graphic data, 
ASCII text strings, or any other data that has meaning to your 
printer. 

One example of what can be done is to define a special 
"character" which prints your name. After the character is 
defined, a single byte of data to the PTC-64 will send your 
name (up to 24 characters) to the printer. 

Special Drivers 

The fact that the PTC-64 is a 64K Z-80 microcomputer 
suggests that it has powers beyond print buffering. 

Imagine your DMP-200 printing gothic characters! Or, 
maybe you have a version of APL for your computer, and you 
would like to output your APL listings on the printer using true 
APL characters. 

These are only two of many possible ideas that a special 
PTC-64 driver could be written to perform. 

The manual which comes with the PTC-64 contains the 
technical information that you will need to program the de- 
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vice. All you need now is imagination and a knowledge of 
Z-80 assembly language programming. 

While Radio Shack does not currently have any special 
drivers for the PTC-64, several have been discussed. We will 
simply have to wait and see what pops out of the product 
development people. 

PTC-64 DETAILS 
Status Lamp 

The Status Lamp on the PTC-64 gives you a visual 
indication of the internal status of the printer controller. 
Lamp Status 

Off Buffer empty. 

Green Buffer active, receiving or printing data, or 

both. 
Yellow Buffer active, less than 4K remaining. 

Red Buffer active and full. 

Fault Lamp 

Whenever there is a printer problem (for instance, when 
the printer is Off-Line and you are attempting to print) this 
lamp will turn on and a beeper (in the PTC-64) will sound eight 
times. The printer controller will not print or accept data until 
the fault condition is solved. After the condition is solved, the 
controller will continue printing where it left off. 

(CLEAR) Key 

This key serves a dual purpose: 

When the controller is inactive (Status Lamp is OFF), it 
marks the PTC-64's buffer memory to indicate the starting 
point for printing and clears any previous buffer contents. 

When the controller is active (Status Lamp is ON in any of 
the three colors), the (CLEAR) key simply aborts any print- 
ing in progress. The information in the buffer remains intact. 
To start printing again, you must press the (copy ) key. 
Printing will then start from the beginn ing of the buffer. To 
erase the information in the buffer, press (clear! a second 
time. 

The [clear] key function can be duplicated by send- 
ing the PTC-64 the control sequence 27 33 in decimal. From 
BASIC this could be done with: 

LPRINT CHR$(27); CHR$(33); 

(copy) Key 

If the (CL ear) key was used to mark the PTC-64 buffer 
starting point, the PTC-64 will print one copy of the stored 
information when you press the (copy ) key. If the text 
exceeds the buffer size, the (copy ) key is ignored. 

For printing multiple copies, you may also "stack" up to 
1 00 (copy) requests by pressing the (copy) key repeat- 
edly. Printing of the multiple copies will stop if you press the 
rc~L ear) key. 

For the PTC-64 to make multiple copies of information, all 
of the information must fit the PTC-64's buffer. 

The (cop y ) key function can be duplicated by sending 
the PTC-64 the control sequence 27 34 in decimal. From 
BASIC this could be done with: 

LPRINT CHR$(27); CHR$(34); 

fPAUSE) Key 

Pressing this key will temporarily interrupt any printing. 
Pressing ipause I a second time will cause printing to 



resume. If you press (pause! before sending any informa- 
tion to the PTC-64, the printer controller will accept informa- 
tion from the computer but printing will not start until you 
press (P auseI the second time. 

The ( P A~u~S"E~) key function can be duplicated by send- 
ing the PTC-64 the control sequence 27 37 in decimal. From 
BASIC this could be done with: 

LPRINT CHR$(27); CHR$(37); 

Multiple Keys 

There are three additional functions which can be activa- 
ted by using the three keys on the PTC-64: 

Controls Off— When you press the fc o~ p y") and 
rp~A~TJ~s~El keys together, the PTC-64 control se- 
quences — special operations to control printing 
functions - are automatically disabled. 

The Controls Off function can be duplicated by 
sending the PTC-64 the control sequence 27 36 in 
decimal. From BASIC this could be done with: 
LPRINT CHR$(27); CHR$(36); 

Controls On— When you press the fcT E a r 1 and 
CE5E3D keys together, the PTC-64 control se- 
quences are enabled. 

Self-Test— When you press the (c lear] and 
(pause! keys together, the printer controller au- 
tomatically performs a self-test, and, if everything is 
working properly, prints a message on the attached 
printer. 

Additional Functions 

Beeper— The PTC-64 half second beeper can be activa- 
ted using LPRINT CHR$(27); CHR$(42);. 

Download— LPRINTCHR$(27); LPRINTCHR$(35); tells 
the PTC-64 to wait for a new program to be sent 
from the computer. This allows you to download 
special drivers into the PTC-64. 

Redefine— The 1 6 special characters that are defined by 
the PTC-64 can be redefined. To tell the PTC-64 that 
you are going to redefine these characters, use 
LPRINT CHR$(27); CHR$(39);. 

Translate— The 16 special characters in the PTC-64 are 
only available after you tell the printer controller to 
translate the appropriate values as it receives them. 
If the translate function is off, the 16 codes for the 
characters will be passed to your printer without 
translation. To turn translation on use LPRINT 
CHR$(27); CHR$(38); -13 
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Musical Notes 



by Bryan Eggers 
Software Affair, Ltd. 



I KEEP HEARING VOICES! 

The Orchestra-90 stereo music synthesizer (#26-1922) 
allows the transcription and play of any sheet music in up to 
5-part harmony, even if you have little or no musical knowl- 
edge. So, what is "5-part harmony"? It's five instruments 
playing at the same time. In music synthesizer language we 
call it "5-VOICE" harmony. Not singing voices, but instrument 
voices. 

Orchestra-90's VOICES are programmed to play the 
notes, and the REGISTERS supply the different instrument 
sounds. 

If this is a bit confusing, let's look at it another way. We 
have 5 musicians (voices), and each is given one instrument 
(register) to play. How's that? 

ORCH-90 has 5 instrument registers: TRUMPET, OBOE, 
CLARINET, ORGAN, and VIOLIN, referred to by the letters A, 
B, C, D, and E, respectively. These symbols represent the five 
possible instrument registers that can be assigned to any 
voice. 

ASSIGNING REGISTERS TO VOICES 

Each voice plays notes with register D (organ) unless a 
different register is assigned to that voice. This is the default 
voice/register assignment. ORCH-90's "Y" symbol may be 
used to assign a register to a voice. For example, V4YC 
assigns register C (clarinet) to Voice 4. After this assignment, 
all notes played by Voice 4 would sound like a clarinet. 

ORCH-90's default voice register assignments look like 
this: 

V1YD V2YD V3YD V4YD V5YD 

If no register assignments occur in the music file, the 
voices play their programmed notes with the organ (register 
D) sound. 

Here comes the great flexibility of the system. You can 
switch register assignments anywhere in the music file! Insert 
a Part Number prior to the measure of music in which the 
changes are to occur. On the same line, indicate the new 
voice/register assignments. You can assign different instru- 
ments to any or all of the voices at a Part Number. A typical 
Part Number and register assignment would be: 

P10 V1YA V2YB V3YE V5YC 

Voice 1 will now play notes using the TRUMPET sound 
(register A), Voice 2 uses the OBOE sound (register B), Voice 
3 uses the VIOLIN sound (register E), and Voice 5 uses the 
CLARINET sound (register C). 

Voice 4 wasn't changed, so it continues playing with the 
ORGAN sound (register D) or whatever instrument register 
was previously assigned to it. 



The Part NUMBER itself has no effect on the registers. 
Using a Part Number alerts the compiler (SCORE command) 
that voice/register changes may occur. 

REPEATS AND REGISTERS 

A Part Number also allows us to REPEAT a section of 
music by simply inserting an "R" followed by the Part NUM- 
BER to be repeated. Let's say that Part 1 contained a dozen 
measures. Inserting an "R1 0" at some later point in the music 
file will cause all measures in "P10" to be repeated. That 
"P10" could literally contain HUNDREDS of measures and 
"R10" would repeat them all! The Repeat symbol makes it 
unnecessary to enter those measures a second time, thus 
reducing the amount of memory required for the file. 

The Repeat symbol instructs ORCH-90's compiler to 
fetch only the NOTES from the original Part, ignoring all 
register assignments. The compiler uses the register assign- 
ments CURRENTLY in effect at the point in the music file 
where the Repeat is inserted. This allows you to follow a 
Repeat symbol with new voice/register assignments: 

R10 V1YA V2YA V3YC V4YC V5YC 

You can repeat a Part several times, each with new 
register assignments: 

R10 V1YA V2YA V3YA V4YA V5YA 
R10 V1YB V2YB V3YC V4YC V5YC 
R10 V1YA V2YB V3YD V4YE V5YD 
R10 V1YD V2YD V3YA V4YA V5YA 

This capability will be used for some other tricks when we 
start defining our own special instruments. 

REGISTER DEFINITIONS 

What makes the "A" register sound like a trumpet? The 
answer requires some technical information about the way 
ORCH-90 creates an instrument waveform. ORCH-90's de- 
fault registers are based on the spectral analysis of orchestral 
instruments and were selected to provide a fairly wide range 
of sounds. If these registers aren't suitable for a particular 
piece of music, the registers can easily be altered to create 
new sounds. 

ORCH-90 "builds" a waveform for each instrument. It 
starts with a fundamental frequency and adds seven partial 
harmonics, or "partials", to it. Each partial is an integer multi- 
ple of the fundamental frequency. The strength or "weight" of 
each partial determines the overall sound or "tone color" of 
the register. 

ORCH-90's default (internal) definition for the A register 
(trumpet) is: 

JASEFA50000E 
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Let's examine this register definition symbol-by-symbol: 

SYMBOL MEANING 

J begin register definition 

A define register A 

S Sinesoidal (harmonic) wave 

E partial #1, fundamental, weight E (nearly maxi- 
mum) 

F partial #2, first harmonic, weight F (maximum) 

A partial #3, second harmonic, weight A 

5 partial #4, third harmonic, weight 5 

partial #5, fourth harmonic, weight 

partial #6, fifth harmonic, weight 

partial #7, sixth harmonic, weight 

partial #8, seventh harmonic, weight 

E overall volume E (nearly maximum) 

"J" tells the compiler that we are beginning a new regis- 
ter definition. 

"A" is the name of the register being defined (could be A. 
B, C, D, or E). 

"S" indicates Sinesoidal waveform type, ORCH-90 uses 
this waveform for music. Percussion effects are also possible 
and may be obtained from either "S" or "R" (Random) wave- 
forms, however, the Percussion Clef interprets the definition 
in a completely different manner (to be explained in a future 
column). 

The next eight digits represent the weight (strength) of 
the eight partial harmonics in the waveform. Each of these 
"partials" may be defined with a weight of 0, 1,2,3,4, 5, 6, 7, 
8, 9, A, B, C, D, E, or F where is silent and F is the loudest. A 
setting of indicates that the partial makes no contribution to 
the final waveform. 

The final digit, "E", defines the overall volume of the 
instrument, relative to the other instrument registers, using 
the same possible values (0-F) as the partials. A setting of 
indicates that the entire register will be silent. 

ORCH-90 allows each of the A, B, C. D, and E registers 
to be defined only ONCE within a music file. 

Inserting a command like "JASEFA50000E" into the 
ORCH-90 music file causes the compiler to compare this 
definition to it's default definition for register A. This compari- 
son takes place each time the music file is SCORED (com- 
piled). In this case, the new definition is identical to the default, 
so ORCH proceeds normally with the compile. If it were 
different, the compiler would create a whole new set of fre- 
quency tables in memory adjusted to the new harmonics in 
the special definition. This is a major task. Fortunately, it only 
takes a couple of seconds in machine language! 

For example, if the definition "JASEFA50000F" were 
edited into the music file, this would cause the compiler to 
create new tables. This definition contains a different overall 
VOLUME of "F" instead of the normal volume of "E" in the 
default register A. This increases the volume of register A 
slightly, and even a small change like this requires all new 
frequency tables. This new definition causes all voices using 
register A to play notes at maximum volume ("F") instead of 
the default volume setting of "E". 

Each "J" definition added to the file replaces the setting 
of the corresponding default register. Each file may contain 
only ONE new definition for each register (A, B, C, D, or E). 



The new definition may be placed ANYWHERE in the file, but 
the most convenient location is probably at the top of the file. 
No matter where in the file you insert your new "J" definition, 
it becomes the effective register definition for the entire file. If 
more than one "J" definition exists for the same register, the 
LAST one will be used by the compiler. 

DEFAULT REGISTER DEFINITIONS 

ORCH-90 creates the following default registers when 
used on a Model III TRS-80: 

JASEFA50000E 
JBS48F80000F 
JCSE0500000A 
JDSF4080000B 
JES4F280000D 

If you are satisfied with the sound produced by these 
instrument registers, there is no need to type them into the file. 
The compiler automatically uses them during a "SCORE". 
Just use the "Y" command to assign the register name (A, B, 
C, D, or E) to any voice. 

The "J" command is primarily used for CHANGING the 
sound or volume of the default instrument registers, allowing 
each music file to contain a different set of register definitions. 

Note that partials 5-8 are not defined in the default regis- 
ters (they are set to 0). In general, you should not define more 
than the first four partials if you use ORCH-90 on a Model III 
TRS-80 (and you should only select the 3 or 4-voice option, 
not 5-voice). Defining additional partials could cause some 
undesirable "aliasing" . This effect can be reduced somewhat 
by transposing the piece down with the "<" command. 
However, if a register is ONLY used to play low bass notes, 
some additional partials may be added without creating alias- 
ing. It's easy to experiment with the partials. Just go into the 
EDIT mode, add additional partials (or change the strength of 
the existing partials), then SCORE and PLAY. 




When used on a Model 4 or 4P TRS-80, the ORCH-90 
takes advantage of the faster (4 Mhz) clock speed and de- 
fines an extra two partials in some of the registers. These are 
the default register values on a Model 4 or 4P: 
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JASEFA54E00E 
JBS48F8F200F 
JCSE050F000A 
JDSF4080000B 
JES4F281400D 

The faster clock speed of a Model 4 or 4P also allows you 
to define extra partials. You'll be able to define all the partials 
(1-8) without aliasing, unless you are trying to play very high 
notes. Really high pitch notes are obtained by using registers 
with fewer defined partials. For example, the default D regis- 
ter on a Model 4 can play higher notes than any of the other 
registers because it has only the first four partials defined. On 
a Model III, the default C register can play the highest notes 
because it has only the first three partials defined. 

Since partials are actually tones themselves, you can 
single them out and listen to them individually. For example, 
try these short files (separately) on a Model 4: 



EXAMPLE 1 
JASF00OO000F 

V1YA 

P01 

M •00,1,2,3,4.5,6,7 

EXAMPLE 2 
JASOFOOOOOOF 

|V1YA 

P01 

M *Q0,1, 2,3,4,5.6,7 



EXAMPLE 3 
JASOOOFOOOOF 

V1YA 

P01 

M *Q0, 1,2,3,4,5,6,7 



define only partial #1 in register 

A 

assign register A to Voice 1 

Part 01 

plays a scale from Middle-C to 

ONE octave above Middle-C 



define only partial #2 in register 

A 

assign register A to Voice 1 

Part 01 

plays a scale from ONE octave 

above Middle-C to TWO octaves 

above Middle-C 



define only partial #4 in register 
A 

assign register A to Voice 1 
Part 01 

plays a scale from TWO octave 
above Middle-C to THREE oc- 
taves above Middle-C 



In Example 1 we use only the fundamental tone (partial 
#1), so ORCH-90 plays the correct notes fFom Middle-C to 
one octave above Middle-C. 

In Example 2 we eliminate partial #1 and use only partial 
#2. Partial #2 is twice the frequency of partial #1, therefore the 
same scale sounds an octave higher than normal. 

In Example 3 we eliminate partial #2 and use only partial 
#4. Partial #4 is four times the frequency of partial #1 , there- 
fore it sounds TWO octaves higher than the original scale. 

Note that we skipped the 3rd partial. This partial is not an 
octave multiple of the fundamental tone, so the resulting scale 
would not be exactly one or two octaves higher. Try it yourself 
if you're curious. 

This demonstrates the individual sounds of various par- 
tials, but music played using only single-partial tones is not 



very interesting (or realistic). No real musical instruments 
(except ORCH-90 and some other synthesizers) are capable 
of producing such single-partial tones. All other instruments 
create multiple-harmonic sounds. In fact, that's what makes 
them unique. Even an instrument as simple as a kazoo 
produces several harmonics. ORCH-90's best instrumental 
effects are obtained using registers with combinations of 
partials. 

BALANCING THE VOICES 

Let's get some practical use from our "J" command. You 
can use the volume parameter (the last digit) to balance the 
voices, just like in a recording studio. For example, try enter- 
ing a set of register definitions like this in your music file: 

JASEFA54E00F 
JBS48F8F200B 
JCSE050F000B 
JDSF4080000B 
JES4F281400E 

Add these voice/register assignments: 
V1YA V2YB V3YC V4YD V5YE 

When you transcribe your sheet music, use Voice 1 for 
the melody because it uses register A (set to highest volume). 
The melody should be the most prominent voice in the ar- 
rangement. 

Voices 2, 3, and 4 (all playing with register B) are some- 
what lower in volume than the A register, making them perfect 
for accompaniment. Use these voices for all the harmony and 
rhythm parts. 

Voice 5 (using register E) is slightly less than maximum 
volume and is perfect for a strong bass line. 

No need to limit yourself to the default partial settings 
when you balance the voices. You could define all the regis- 
ters as trumpets, yet maintain the same loudness balance: 

JASEFA54E00F 
JBSEFA54E00B 
JCSEFA54E00B 
JDSEFA54E00B 
JESEFA54E00E 

FADE-OUT ENDINGS 

How about a little fade-out ending for your arrangement? 
Define all the registers with the same partials, but with de- 
scending volumes like this: 

JASEFA54E00F 
JBSEFA54E00C 
JCSEFA54E007 
JDSEFA54E004 
JESEFA54E001 

You now have five trumpets, and each plays at a different 
loudness level. Next, let's assume that you have a group of 
measures that you need to repeat at the end of a song. The 
measures are in Part 80. At Part 80, assign the loudest 
register (A) to all the voices like this: 

P80 V1YA V2YA V3YA V4YA V5YA 
(measures of music to be repeated go here) 



TRS-80 Microcomputer News, March 1984 



19 



ORCH-90 will play all measures in Part 80 (P80) as loud 
as possible, since all voices are using the loudest register (A). 
Then, at the first Repeat, assign register B to all the voices. 
The example now looks like this: 
P80 V1YA V2YA V3YA V4YA V5YA 
(measures of music to be repeated go here) 
R80 V1YB V2YB V3YB V4YB V5YB 

This Repeat (R80) will play all the measures in Part 80 
again, except at slightly lower volume. Do the same for the 
next three Repeats, substituting a softer register each time: 
P80 V1YA V2YA V3YA V4YA V5YA 
(measures of music to be repeated go here) 
R80 V1YB V2YB V3YB V4YB V5YB 
R80 V1YC V2YC V3YC V4YC V5YC 
R80 V1YD V2YD V3YD V4YD V5YD 
R80 V1YE V2YE V3YE V4YE V5YE 

Each time the measures are repeated, the volume will be 
reduced, yet the SOUND of the instruments never change 
because you are switching registers with identical partials. 
You can create even more subtle effects by switching only 
one or two registers each time instead of all of them. You can 
also combine these changes with TEMPO changes: 

R80 V1YB V2YB V3YB V4YB V5YB NQ = A0 
R80 V1YC V2YC V3YC V4YC V5YC NQ = BD 
R80 V1YD V2YD V3YD V4YD V5YD NQ = CE 
R80 V1YE V2YE V3YE V4YE V5YE NQ = DF 

This allows you to simultaneously change the tempo and 
reduce the volume each time the section of music is re- 
peated. 

MUSIC MINUS ONE 

If you sing or play an instrument, you'll really like this next 
trick. ORCH-90 can be used to repeat a song or accompani- 
ment indefinitely (see the "M FILENAME" command), so if 
you want to practice singing, you'll need to eliminate the 
melody from the ORCH arrangement and sing that part your- 
self. Or, perhaps you need to practice singing one of the 
harmony lines or maybe you want to play the bass guitar 
while ORCH-90 plays the rest of the file. If you set up the file 
properly, it is simply a matter of changing ONE character in 
the file to completely eliminate a particular voice. Define all 
the registers at the top of the file as we previously did, then 
assign one to each voice like this: 

JASEFA54E00F 
JBS48F8F200B 
JCSE050F000B 
JDSF4080000B 
JES4F281400E 
V1YA V2YB V3YC V4YD V5YE 

When transcribing your music file, always use Voice 1 for 
the melody, voices 2, 3 and 4 for harmony parts and Voice 5 
for the bass. This sets up your file so that each voice always 
plays the same musical line throughout the file. 

As we mentioned before, the last digit in the " J " definition 
is the VOLUME of the register. Want to make Voice 1 silent? 
Just go into the EDIT mode and change the last digit in the A 
register (the register assigned to voice 1) from F to (no 
sound)! All notes that were played by Voice 1 in the music file 
will be silent. You can make any voice silent this way, allowing 
you to practice any of the five different parts. 



ORCH-90 AND THE HAMMOND ORGAN 

The partials in a register correspond almost identically to 

the drawbars of a Hammond organ. This gives you a great 

source of instrument definitions from countless music books 

published with Hammond organ settings. You can transfer 

the values for drawbars 3-9 directly into the ORCH register 

definition. Use the following chart: 

Drawbar Pitch Musical Note Scale Name ORCH Partial 

(color) (from Middle-C) Number 



3 

(white) 


8' 


Fundamental, or 
as printed on the 
music. (C1) 


Unison 


4 

(white) 


4' 


One octave above 
Unison (C2) 


Octave 

(Eighth) 


5 
(black) 


2 2 /a' 


One octave and five 
notes above Unison 
(G2) 


Twelfth 


6 
(white) 


2' 


Two octaves above 
Unison (C3) 


Super Octavi 
(Fifteenth) 


7 
(black) 


1»/5' 


Two octaves and 
three notes above 
Unison (E3) 


Seventeenth 


8 


Vh' 


Two octaves and 
five notes above 
Unison (G3) 


Nineteenth 


9 


1' 


Three octaves 
above Unison (C4) 


Super Super 
Octave 



8 



NOTE: ORCH-90's 7th partial is not available on the 
Hammond organ, and normally would be set to for these 
conversions. 

For example, suppose that you find a Hammond organ 
drawbar setting for a Tuba like this: 

00 8848 136 

Discard the first two digits (00). They represent Sub- 
octave and Fifth drawbars (below Middle-C) that are used for 
very few instruments. 

Then, take the next six digits ("884813") and edit them 
into a register definition like this: 

JAS884813 

Add a "0" for ORCH-90's seventh partial: 
JAS8848130 

Then add the last digit in the Hammond setting ("6"): 
JAS88481306 

Finally, add the overall volume parameter of your choice, 
for example, "C": 

JAS88481303C 

There you have it. TUBA for ORCH-90. Of course, if you 
really want ORCH-90 to sound like a particular instrument, 
you must take other factors into consideration. For example, 
think about the range of notes playable by the instrument. 
Tuba players don't play "Flight of the Bumblebee". There are 
certain physical limitations to consider, including note dura- 
tions and articulation. You can consult music theory books for 
the typical range of various instruments. Look for sheet music 
scored for specific instruments. Chances are the arranger 
already took these characteristics into account when the 
score was written. 
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NEW ORCH-90 INSTRUMENT REGISTERS 

Here are register definitions for some traditional 
ments: 



instru- 



JASC8422200F / 
JAS26ACCC0CF/ 



JASA2840000F / 
JAS00020004F / 
JASE2020000F / 
JASE8440000F / 
JASE2420000F / 
JASCEEA0402F / 



JAS66600000F 

JAS8E480402F 

JAS46802200F 

JAS48EA6402F 

JAS08C64602F 

JAS68C60202F 

JAS48A20206F 

JASACE20402F 

JAS82C44206F 

JAS0022420AF 

JASA6884402F 

JAS44A62406F 



/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 

JAS8AAAAA08F / 
JASC0A22202F / 
JASA2E26608F / 
JASACEF8604F / 
JAS0A0A0A08F / 
JASA0C00602F / 
JAS04240200F / 
JAS20286402F / 
JAS262A260CF / 
JAS84E82408F / 
JASAFEF8604F / 
JASEACCOOOOF / 
JASCAA20200F / 
JASEFFCFFOFF / 
JAS20AE0800F / 
JASAAEE4406F / 
JAS02A20806F / 
JAS8EAEEE0EF / 
JAS42048A06F / 
JASA6220000F / 
JASFC600402F / 
JASAE8C080EF / 
JASFF8FFF0FF / 
JASCFCE6000F / 
JASEFFEA602F / 
JASCEE22200F / 
JAS26ACCC04F / 
JAS40060004F / 
JAS26020202F / 
JAS2C020002F / 
JAS02000002F / 
JAS48C88402F / 
JASA4022240F / 
JAS600C0000F / 
JASC4020600F / 
JAS24040008F / 
JAS6F220002F / 
JASOAOAOEOEF / 
JAS20022202F / 
JAS46A24404F / 



CHIMNEY FLUTE 

CONCERT PICCOLO 

FOREST FLUTE 

GERMAN FLUTE 

MAGIC FLUTE 

MELOPHONE 

MELODIA 

SOLO OPEN FLUTE 

VIENNA FLUTE 

GRAND VIOLIN 

ORCHESTRAL VIOLIN 

'CELLO 

VIOLA D' AMORE CELESTE 

VIOLIN 

VIOLINCELLO 

APFELREGAL 

BALLAD HORN 

BAROQUE OBOE 

BAROQUE TRUMPET 

BASSOON 

BELL CLARINET 

BUGLE 

CLAIRION HARMONIQUE 

CLARINET 

CONTRA OBOE 

DULZIAN 

EGYPTIAN BAZU 

ENGLISH HORN 

FLUGELHORN 

FRENCH HORN 

HUNTING HORN 

MILITARY FANFARE 

MUSETTE MIRABILIS 

MINOR TRUMPET 

ORIENTAL REED 

POST HORN 

ROHRSCHALMEI 

SACKBUT 

SAXOPHONE 

SILVER TRUMPET 

SOLO TUBA 

STENTOR HORN 

TROMBONE 

WALDHORN 

BANJO 

BELLS 

CELESTA HARP 

CHIMES 

GLOCKENSPIEL 

GUITAR 

HARP 

MARIMBA 

MARIMBA HARP 

ORCHESTRAL BELLS 

VIBRA-HARP 

ZINK 

VOX HUMANA 

GAMBA 



JAS26E06402F 
JASFFFFFFOFF 
JASFCA00000F 



CLARABELLA 
TOY TRUMPET 
SARRUSOPHONE 
OPHECLEIDE 
SOLO SAXOPHONE 
MELODY CLARINET 
CORNO OCTAVE 
MINIATURE BELLS 
ETHEREAL VIOLINS 
PIANO 



JASC0C0A202F / 
JAS0E080400F / 
JAS20040008F / 
JAS28222202F / 
JASA8642202F / 

On the other hand, who cares about traditional instru- 
ments? Since ORCH-90 lets you create your own unique 
sounds, perhaps you'll invent some interesting new registers 
that we can share with other users. I'm putting together a list 
of ORCH-90 special effects, both musical and percussion, for 
a future article. Please send any new instrument definitions, 
special effects or questions to my attention, in care of TRS-80 
Microcomputer News or leave a message on our ORCH-90 
SIG (page HOM-13) on CompuServe. We have a few hun- 
dred music files available FREE in the CompuServe ORCH- 
90 SIG database. Check in sometime and learn a few tricks 
from the local experts or, even better, teach us a few tech- 
niques of your own! JTJ 




CORRECTION 

Musical Notes 
February, 1984 



These corrections are for a mistake in the February 
"Musical Notes" column. Due to a last minute change in 
the ORCHUTIL/CMD program (prior to production), the 
patches to make ORCHUTIL/CMD accept job files were 
incorrect. The INCORRECT patches were: 
PATCH UTIL/CMD (ADD = 5A9D, FIND = 9554, 
CHG = 0000) 

PATCH UTIL/CMD (ADD = 5AA8,FIND = 06. CHG = 0C) 
PATCH UTIL/CMD (ADD = 5AC 1 .FIND = 2430, 
CHG = 2B00) 

The CORRECT patches for ORCHUTIL/CMD. ver- 
sion 01.01.00 are: 

PATCH UTIL/CMD (ADD = 74A2, FIND = 956E. 
CHG-0000) 

PATCH UTIL/CMD (ADD = 74AD,FIND = 06, CHG = 0C) 
PATCH UTIL/CMD (ADD = 74C6, FIND = 2430. 
CHG-2B00) M 
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Model I/III/4 



Printer Graphics 



Paul Brannon 
201 Massee Dr. 
Dothan, Ala. 36301 



This program will print graphic characters using Radio 
Shack's own Upper/Lower case routine supplied with the 
Model I Double Density TRSDOS. It might work on the cas- 
sette version, using the same idea. The program replaces the 
lowercase mode (SHIFT 0) with a graphic characters mode. 

First, load the program and RUN it. To access the graphic 
character mode, ,SH IT T 3C. A through Z are graphic 
characters 1 29 to 1 54, SHIFT A through SHIFT Z are 1 55 to 
180, and 1 through 9 create 181 to 189. 190 and 191 are 
found by pushing "," and ".". To exit graphic mode, 
(shift: GC- 

The program is so simple, you can easily make any 
changes to it to suit your needs. Also, you can use it to 
change nTRTFT"; 3F, to other special symbols other than 
the British Pound sign. Furthermore, you can enter any 
BASIC word with one press of a button in graphics mode. 
Example— RUN equals graphic code 142. See Section E in 
the Level II manual to see which word equals which graphic 
code. 



10 A-129 

: B-155 
: C-181 
20 FOR X-&HFF00 TO &HFF19 

POKE X, A 

A«A + 1 

NEXT X 
30 FOR X-&HFF40 TO &HFF59 

POKE X, B 

B-B + 1 

NEXT X 
40 FOR X-&HFF20 TO &HFF28 

POKE X, C 

C-C + 1 

NEXT X 
50 POKE &HFF2B, 190 

: POKE &HFF2D, 191 



J3 



Fibonacci Sequence 
Generator 



Martin Combs 
Verde Valley School 
Sedona, AZ 86336 



Here is a program for readers who like to crunch large 
numbers. It was done on a 16K TRS-80 Model I. 

10 REM FIBONACCI SEQUENCE GENERATOR 

20 REM BY MARTIN COMBS, VERDE VALLEY SCHOOL, SEDONA 

AZ 86336 
30 REM FIBONACCI SEQUENCES ARE GENERATED RECURSIVELY 
40 REM EACH TERM IS THE SUM OF THE TWO PREVIOUS 

TERMS. 
50 REM FOR "THE" FIBONACCI SEQUENCE THE FIRST TWO 

TERMS 
60 REM ARE BOTH 1, BUT OTHER SEQUENCES ARE POSSIBLE. 
70 REM THIS PROGRAM WILL ONLY START WITH SINGLE 

DIGITS 



80 REM TO SEE RESULTS, HIT BREAK, TYPE IN F=l , THEN 

CONT. 
90 REM TO USE PRINTER, HIT BREAK, TYPE IN F«2 , THEN 

CONT. 
100 REM THE PROGRAM RUNS FASTER, BUT INVISIBLY, IF 

F-0. 
110 DEFINT A-Z 

: DIM A(1000), B(1000), S(1000) 

: REM 1000 DIGITS ARE PLENTY, BUT YOU CAN HAVE 

MORE. 
120 PRINT "WHAT POSITIVE INTEGER LESS THAN 10 DO YOU 

WANT" 
130 INPUT "AS THE FIRST TERM OF THE FIBONACCI 

SEQUENCE"; A(l) 
140 PRINT "WHAT POSITIVE INTEGER LESS THAN 10 DO YOU 

WANT" 
150 INPUT "AS THE SECOND TERM"; B(l) 
160 K=3 

: REM K IS THE NUMBER OF THE TERM IN THE 

SEQUENCE 
170 D-2 + INT(K / 4.78) 

: REM D IS ALWAYS 1 OR 2 MORE THAN THE NUMBER OF 

DIGITS IN THE TERM BEING CALCULATED. 
180 FOR I»l TO D 
190 S(I)-A(I) + B(I) + C 

: REM THE RECURSIVE FORMULA. C IS THE CARRY. 
200 C-0 

: REM REINITIALIZE THE CARRY. 
210 IF S(I)>9 THEN S(I)-S(I) - 10 

: C-l 
220 NEXT 
2 30 IF F=0 GOTO 310 

: REM SUPPRESSES THE OUTPUT TO INCREASE SPEED. 
240 FOR I»D TO 1 STEP -1 

: REM LOOP PRINTS RESULTS. 
250 IF S(I)=0 AND G-0 GOTO 280 

: REM LINES 250, 260, 300 SUPPRESS LEADING ZEROS 
IN OUTPUT. 
260 G-l 
270 IF F-l THEN PRINT RIGHT$ (STR$(S ( I) ) , 1 ) ; ELSE 

LPRINT RIGHT$(STR$(S(I)), 1); 
280 NEXT 

290 IF F=l THEN PRINT ELSE LPRINT 
300 G-0 
310 K-K+l 

FOR I»l TO D 
A(I) - B(I) 
B(I) - S(I) 
NEXT 

REM NEWLY CALCULATED TERMS BECOME INPUTS FOR 
NEXT TERM. 
320 IF F»0 THEN PRINT "FIBONACCI TERM #"; K; "IS 
BEING CALCULATED" ELSE IF F-1THEN PRINT 
"FIBONACCI TERM #" ; K; "IS:" ELSE LPRINT 
"FIBONACCI TERM #"; K; "IS:" 
330 GOTO 170 J3 
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Elementary Math 
Generator 

Paul J. Breaux 

1033 NW 22nd Street 

Moore, OK 73160 

When I was thinking of purchasing a computer, I had to 
convince the wife that it could be used to help the family. One 
of the items I cited was in the education of our children. This 
was one of my first programs in BASIC, which is a computer 
language I had never used in programming. 

The math program is very simple to use and modify. It 
was originally implemented for multiplication problems, how- 
ever, by changing the sign in line 240, it could be used for 
addition as well as subtraction problems. 

The programs will display the problem to be solved as 
well as the amount of right and wrong answers accumulated. 
This will assist both the student and the teacher in knowing 
how the student is progressing. 

The computer will first request the student's name. Then 
there will be a request for the multiplicand and next the 
multiplier. If, for example, the student is practicing the three 
multiplication table, you could put ten when the first number is 
requested and three when the second number is requested. 
This will insure that the numbers zero to ten are multiplied by 
zero to three. 

The program will also insure that the higher number will 
always be the multiplicand or top number in the problem. 
When the student answers the problem, a flashing message 
at the top of the display will advise the student if the problem 
was answered correctly or incorrectly. The same problem will 
be displayed until the student answers correctly. 

I am sure that there may be other ways to more personal- 
ize the program to suit everyone's requirements. Various 
types of rewards could be displayed on the monitor such as 
proceed to next class after completion of a certain number of 
problems. The uses and possibilities for program modifica- 
tions are left to your imagination. Happy programming. 

5 REM MULTIPLICATION PROGRAM FOR ELEMENTARY STUDENTS 

6 REM PROGRAMMER: PAUL J. BREAUX 

7 REM DATED: 1 JULY 1980 

90 REM THIS IS AN ELEMENTARY MATH GENERATOR AND TEST 

100 CLS 

101 INPUT "WHAT IS YOUR NAME"; MS 

102 CLS 

110 INPUT "ENTER FIRST NUMBER"; X 

120 CLS 

130 INPUT "ENTER SECOND NUMBER"; Y 

149 CLS 

150 A-RND(X) 

160 B-RND(Y) 

161 N-N * 

170 PRINT 9 104, "WRONG", W 
180 PRINT 9 448, "PROBLEM" 

190 PRINT 9 168, "RIGHT", R 

191 IF B > A THEN GOTO 510 
200 PRINT 9 468, A 

210 PRINT 9 591, "X" 

211 IF A < 10 THEN GOTO 220 

212 IF A > 99 THEN GOTO 216 

213 IF B > 9 THEN GOTO 220 

214 PRINT 9 597, B 

215 GOTO 230 



216 IF B > 10 THEN GOTO 219 

217 PRINT 9 598, B 

218 GOTO 230 

219 IF B < 100 THEN GOTO 214 

220 PRINT 9 596, B 
230 INPUT "ANSWER"; Z 
240 C - A * B 

250 IF C <> Z THEN GOTO 400 

260 R - R + 1 

270 CLS 

280 IF N - 3 THEN GOTO 150 

290 PRINT "THAT IS THE RIGHT ANSWER 



M$ 



300 FOR F - 1 


TO 


100 


310 NEXT F 






320 CLS 




. 


330 FOR F - 1 


TO 


100 


340 NEXT F 






350 N - N + 1 






360 GOTO 270 






400 W = W * 1 






410 CLS 






420 IF N - 3 '. 


fREN GOTO 161 


430 PRINT "THAT i 


IS THE WRONG ANSWER 


440 FOR F - 1 


TO 


100 


450 NEXT F 






460 CLS 






470 FOR F - 1 


TO 


100 


480 NEXT F 






490 N - N ♦ 1 






500 GOTO 410 






510 F - 






511 G - 






512 F - A 






513 G - B 






514 A - 






515 B - 






516 A - G 






517 B - F 






518 GOTO 200 






520 PRINT 9 591, 


"X" 


530 PRINT 9 596, 


A 


540 GOTO 230 







M$ 



Math Text Writer 

Paul J. Breaux 

My daughter brought home some math problems that 
the teacher had written out manually. I could imagine how 
long this took with twenty students in her class. Being a 
programmer by profession, I wrote a program that will write 
math problems using a printer and random number genera- 
tor. I figure that this would assist teachers as well as parents 
who may think their children need more practice in solving 
simple math problems. 

This computer program is very simple to use and modify. 
The program will print out single digit problems for addition. 
subtraction, and multiplication depending on what mathe- 
matical sign is entered when requested by the program. The 
program will also request that the user enter the number of 
problems in multiples of eight. 

This program was designed using the TRS-80 Model I 
Level II with a Line Printer VII. Modifications may have to be 
made, depending on the printer you use. The program can 
also be modified to print multi-digit numbers. By changing the 
random number function to a higher number and modifying 
the PRINT statements, you will be able to print multi-digit 
numbers. 
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This program will assist teachers in writing more prob- 
lems outside the assigned textbook for students that require 
further practice. It can also be modified to print the answers to 
the problems at the end of the program. This will assist in 
checking answers faster and relieve the teacher/parent to do 
other tasks as required. 

My daughter has increased her skills considerably. She 
also ask me to run off some extra copies so that when she and 
her friends play school they can use the listings as a math test. 
After all. that is what using a computer for school is all about. 
By making it fun, hopefully the students will pick up material 
faster, and retain more of what they've learned. 



ters on a Model I or III screen. All white dots will be black and 
vice-versa. 



10 
20 
30 
40 
50 
60 
70 



90 

10( 



•*** VIDEO GRAPHIC REVERSER *** 
'*** STEVE BENFIELD 8/16/81 *** 
■*** 6042 N. LEE ST 4G *** 

'*** MORROW, GA 30260 *** 

' REVERSES ALL GRAPHICS 
FOR 1-15360 TO 16383 
Z9=PEEK(I) 

: IF Z9-32 THEN Z9-128 
Z9-Z9 - 128 

: IF Z9<0 THEN 100 
POKE I, 191 - Z9 
NEXT I ': RETURN if subroutine 



5 REM **** MATH TEXT WRITER *********** 

6 REM **** DATED: 29 NOV 81 *********** 

7 REM **** PROGRAMMER: PAUL J. BREAUX * 

8 CLS 

: PRINT "THIS IS THE MATH TEXT WRITER FOR 
ADDITION, SUBTRACTION, " 

9 PRINT "AND MULTIPLICATION PROBLEMS. THIS IS FOR 

SINGLE DIGIT NUMBERS ONLY."; 

10 INPUT " WHAT SIGN DO YOU WANT TO PUT ON PROBLEMS' 

S$ 
15 CLS 

: INPUT "NUMBER OF PROBLEMS IN MULTIPLES OF 

EIGHT, TOTAL OF 80 PROBLEMS"; P 
20 CLS 

: PRINT "PRINTING PROBLEMS"; 
30 N-0 

: D-0 
35 C-0 

: D-D ♦ 1 
40 N=N + 1 
50 AA=RND(9) 
60 C-C ♦ 1 
70 LPRINT N ". "; 

: LPRINT AA; 
80 IF C<>8 THEN GOTO 40 
90 LPRINT CHR$(13) 
100 X-5 

: Y-0 

: IF D-2 THEN GOTO 110 
105 IF N>=10 THEN X-6 
110 AA=RND(9) 

115 IF S$-"-" THEN AA-RND(5) 
120 LPRINT TAB(X) S$ AA ; 

130 X-X + 9 

131 IF N>=10 THEN X=X + 1 
140 Y-Y + 1 

150 IF Y<>8 THEN GOTO 110 

160 LPRINT CHR$(13) 

161 IF N>-10 THEN GOTO 190 

180 LPRINT " 

ii 

181 GOTO 230 

190 LPRINT " 

230 LPRINT 

: LPRINT 
235 IF N-P THEN GOTO 5 
240 GOTO 35 J 



Video Graphic Reverser 

Steve Benfield 
6042 N. Lee #4G 
Morrow, GA 30260 



Here is a program that will reverse all the graphic charac- 




Screen Print 



Nelson C. Haldane 
Mathematics Department 
Jackson High School 
501 Argonaut Lane 
Jackson, CA 95642 



I use the following program with my Model I to print on 
the printer what is displayed on the screen. I add lines 64999 
to 6501 1 to the end of my main program and use a GOSUB 
65000 in the main program at points where I might want to 
have hardcopy. The program can also be stored on a disk 
(without line numbers 64999, 65002. and 6501 1) and when 
hardcopy is desired, a RUN "filespec" is used. 

64999 END 

65000 C-0 

: INPUT "DO YOU WANT HARDCOPY (Y/N)"; H$ 
: PRINT CHR$(29), CHR$(27), CHR$(27) 

65001 IF H$-"Y" THEN INPUT "TURN ON PRINTER - HIT 
<ENTER> WHEN READY"; PS 

: PRINT CHR$(29), CHR$(27), CHR$(27) 

65002 IF H$="N" THEN RETURN 

65003 INPUT "FIRST LINE TO PRINT"; LI 

: PRINT CHR$(29), CHR$(27), CHR$(27) 

65004 INPUT "LAST LINE TO PRINT"; LL 

: PRINT CHR$(29), CHR$(27), CHR$(27) 

65005 SL-15360 + ((LI - 1) * 64) 

65006 EL-15360 + ((LL - 1) * 64) + 63 

65007 FOR X-SL TO EL 

65008 LPRINT CHR$(PEEK(X) ) ; 

65009 C-C + 1 

: IF C-64 THEN LPRINT CHR$(10) 
: C-0 

65010 NEXT X 

65011 RETURN J3 
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Eat 



Jeff Mug 

1040 W. Notre Dame Dr. 

Attamonte Spgs. FL 327011 

For this Model I/III program, use the arrow keys for 
movement. The object is to try to run into the dots. 

10 'EAT — BY JEFF KLUG 07/22/82 
20 CLEAR 50 

DEFINT A-Z 
DEFDBL T 
CLS 
30 DOT$-CHR$(140) * CHR$(179) ♦ CHR$(140) 
40 UP$-CHR$(191) ♦ CHR$(176) ♦ CHR$(191) 
50 DH$-CHR$(191) ♦ CHR$(131) ♦ CHR$(191) 
60 RT$-CHR$(191) + STRING$(2, 179) 
70 LF$ -STRINGS (2, 179) + CHR$(191) 
80 PT$-"POINTS: " 

TM$-"TIME: " 
TIME 101 
AM-475 
GY$-UP$ 
90 PRINT 9 DOT, STRING$(3, 128), 
: COUNT-21 
: DOT-RND(956) + 64 
100 A-PEEK 14400) 

TIME-TIME - .25 

IF TIME<0 THEN 200 ELSE COUNT-COUNT - 1 
IF C0UNT<1 THEN GOTO 90 
110 IF A-8 THEN BM--64 
: GY$-UP$ 
: GOTO 150 
120 IF A- 16 THEN BM-64 
: GY$-DN$ 
: GOTO 150 
130 IF A-32 THEN BM--3 
: GYS-LFS 
: GOTO 150 
140 IF A-64 THEN BM-3 
: GY$-RT$ 
: GOTO 150 
150 PRINT 9 AM, STRING$(3, 128); 

: IF AM ♦ BM < 64 OR AM + BM > 1020 THEN AM-AM 
ELSE AM-AM ♦ BM 
160 PRINT 9 AM, GY$; 

: PRINT 9 DOT, DOTS; 
170 FOR F— 2 TO 2 

IF AM-DOT + F THEN PT-PT ♦ 50 
COUNT- 1 

NEXT F ELSE NEXT F 
180 PRINT 9 0, PT$; PT; 

: PRINT 9 32, TM$ ; INT(TIME); 
190 GOTO 100 
200 CLS 

: PRINT CHR$(23); 
: PRINT 9 476, "THE END"; 
210 PRINT 9 512, PT$; PT; 
220 PRINT 9 768, "" ; 

: END J3 



Printer Font 



Stephen J. Rossello 
432 New Boston Street 
Cenastota, NY 13032 



You may be interested in the following program which 
allows the operator to choose a font for the line printer (I have 



a Line Printer IV) then automatically go into SCRIPSIT. I 
normally execute the program, labeled "FONT", from an 
AUTOed DO file called STARTER/BLD. The commands in the 
file are: 

BASIC FONT -F:0 

This program was written to work with Tape SCRIPSIT 
moved to disk, and a Line Printer IV. If you want to use it with 
another program, or a different printer you will need to modify 
the program. 

30 CMD "B", "OFF" 

100 CLS 
PRINT TAB(28) "SCRIPSIT" 
PRINT 
PRINT 

PRINT "Choose the font you want:" 
PRINT 
PRINTTAB(5) "<1 > Normal type - 10 

Characters/inch, 80 characters/line" 

PRINT TAB(10) "maximuM." 

PRINT 

PRINT TAB(5) "<2> Compressed type - 16.5 
character s /inch, " 

101 PRINT TABO0) "132 characters/line maximum." 
: PRINT 

: PRINT TAB(5) "<3> Proportional type - 
variable, approximately" 
: PRINT TABU0) "13 characters/inch, 100 
characters/ line. " 
: PRINT TABU0) "(Do not use with 
j ustif ication. )" 

110 I$-INKEY$ 
: IF 1$-"" GOTO 110 

111 I-VAL(A$) 
: IF Kl OR I>3 GOTO 110 

120 ST:-PEEK(14312) AND 240 
: IF STZ048 THEN PRINT 9 960, "LINE PRINTER NOT 
READY"; 

121 ON I GOSUB 130, 131, 132 
LPRINT CHR$(27); CHR$(138) 
CMD "B", "ON" 
CMD "L", "SCRIPS/CMD" 

122 USR0-$H99C0 
: J-USR0(0) 

130 LPRINT CHR$(27); CHR$(19) 
i RETURN 

131 LPRINT CHR$(27); CHR$(20) 
: RETURN 

132 LPRINT CHR$(27); CHR$(17) 
: RETURN J3, 



Video Weaver 



D.A. Goldman 

This program is designed to create different patterns on 
the Model I/III screens. If you don't like the pattern, just press 
any key (like the space bar) to start again. Once you get the 
hang of it, try changing the values for XA, XB, YA, and YB in 
line 30 (these are the minimum and maximum values that x 
and Y can reach.) As a sample, try: 

30 XA-20: XB-100: YA-10: YB-40 



PROGRAM 



10 REM ** VIDEO WEAVER 
20 DEFINT A-Z 
: RANDOM 



** BY D.A. GOLDMAN 
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30 CLS 

: XA-0 

: XB-127 

: YA-0 

: YB-47 
40 DX-SGN(RND(2)-1.5) 

: DY«SGN(RND(2)-1.5) 
50 X-RNDUB - XA) + XA 

: Y-RND(YB - YA) + YA 
60 IF X + DX > XB OR X + DX < XA THEN DX— DX 
70 IF Y + DY > YB OR Y ♦ DY < YA THEN DY—DY 
80 X-X ♦ DX 

: Y«Y + DY 
90 IF POINTU, Y) THEN RESET(X, Y) 

: RESET(XB - X, Y) 

: RESET(XB - X, YB - Y) 

: RESET(X, YB - Y) ELSE SET(X, Y) 

: SET(XB - X, Y) 

: SET(XB - X, YB - Y) 

: SET(X, YB - Y) 
100 IF INKEY$-"" THEN 60 ELSE 30 



Rectangle Draw 

Grady Koch 

2929 Duke of York Dr. 

Chesapeake, VA 23321 

This Model III program randomly picks a point and 
draws a rectangle there of a certain size. A FOR-NEXT loop 
allows a number of rectangles to be drawn. 

5 'RECTANGLE DRAW BY GRADY KOCH 

10 CLS 

20 INPUT "INPUT THE NUMBER OF RECTANGLES 

TO BE DRAWN"; A 

30 CLS 

40 FOR S-l TO A 

50 B-RND(112) 

60 C-RND(32) 

70 D-RNDU5) 

80 SET(B, C) 

90 FOR E-B TO B + D 

: SET(E, C) 

: NEXT E 
100 FOR F-C TO C + D 

: SET(B + D, F) 

: NEXT F 
110 FOR G»B TO B ♦ D 

: SET(G, C + D) 

: NEXT G 
120 FOR H-C TO C 4 D 

: SET(B, H) 

: NEXT H 
130 NEXT S 
140 GOTO 140 ^> 



needed in making labels addressed to companies or labels 
with commas in the address line after the city. 



Quick Label II 



David Young 

6355 Robinhood Lane 

Merriam, KS 66203 

Here is a program for a Model III and Line Printer IV. It is 
similar to the program by Mr. MacLean, except that it uses 
LINE INPUT statements rather than INPUT statements. 

LINE INPUT statements allow the use of commas, quota- 
tion marks, semicolons, or other delimiters which might be 



10 CLEAR 100 




20 CLS 




30 INPUT "HOW MANY COPIES OF THIS LABEL"; C 




40 PRINT 




50 LINE INPUT "ENTER NAME ? "; 


N$ 


60 LINE INPUT "ENTER ADDRESS ? ", 


A$ 


70 LINE INPUT "ENTER CITY, STATE AND ZIP ? ", 


s$ 


80 PRINT 




90 PRINT 




100 PRINT "PRESS ANY KEY IF THE INPUT DATA IS 




CORRECT, ELSE BREAK" 




110 IF INKEY$«"" THEN 110 ELSE 120 




120 FOR Z-l TO C 




130 LPRINT 




140 LPRINT TAB(5) N$ 




150 LPRINT TAB(5) A$ 




160 LPRINT TAB(5) S$ 




170 1.PRINT 




180 LPRINT 




190 NEXT Z 




200 GOTO 20 





Repeating Keys 

Chandra Bajpai 
180 Zabrosky Rd 
Stoughton, MA 02072 

For those of you who have a Model III and want to take 
advantage of the Model Ill's repeating keys, type in the 
following program. This program was made as a keyboard 
input for a screen editor I was making, but it can be adapted 
for other programs. I wrote this program using my 48K two 
disk Model III. 

Line 40 sets up a string containing the machine lan- 
guage program. 

Lines 50 - 80 set up for a USR call. 

Line 90 prints a fake cursor. 

Line 100 calls the machine language program. 

Line 110 checks to see if the BREAK key has been 
pressed. 

Line 120 checks to see if the CLEAR key has been 
pressed. 

Line 1 30 prints the character and goes to line 1 1 to get 
another key. 

10 REM MACHINE LANGUAGE KEYBOARD INPUT UTILITY 
20 REM BY C. BAJPAI 1982 

30 DATA 38, 0, 205, 73, 0, 111, 195, 154, 10 
40 FOR X-l TO 9 

: READ B 

: S$-S$ ♦ CHR$(B) 

: NEXT 
50 X-VARPTR(S$) 

: S1-PEEK(X + 1) 

: S2-PEEK(X ♦ 2) 
60 S0-S1 + S2 * 256 

70 IF S0>32767 THEN S0— 1 * (65536 - S0) 
80 DEFUSR1-S0 
90 CLS 

: PRINT CHR$(143); 
100 KEY-USRK0) 
110 IF KEY-1 THEN STOP 
120 IF KEY-31 THEN 90 
130 PRINT CHR$(8); CHR$(KEY); CHR$(143); 

: GOTO 100 
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ASSEMBLY LANGUAGE LISTING 



Hex 


Z80 op code 


2600 


LD H, 


CD4900 


CALL 0049 ($KBWAIT) 


6F 


LD L, A 


C39A0A 


JP 0A90 



Audio Subroutine 

David G. Blood 
5122 Arquilla Drive 
Richton Park, IL 60471 

The following program is for a Level II Model III. 

This subroutine turns the cassette recorder on so that 
verbal instructions can be added to a program, or any other 
audio sounds may be activated when the subroutine is 
called. The subroutine also turns the recorder off after the 
specified number of seconds have elapsed. 

This simple subroutine can be used to add mysterious 
sounds to an adventure program, give verbal instructions to 
slow readers, or even add a musical break in the middle of 
long drill and practice programs. 

The subroutine is very easy to use. When typing in the 
program, simply add GOSUB 500 at the point you wish to 
activate the cassette recorder. 

After saving the program on tape, unplug all lead wires 
that go to the computer and manually record, in sequential 
order, the audio output you wish the user to hear. 

When using a program with this subroutine in it, the black 
load plug going from the cassette recorder to the computer 
must be unplugged after the tape is loaded. An earplug may 
or may not be used, depending on the situation. 

The structure of the program is very simple. Line 10 
sends the program to the subroutine. Line 500 is a counter, if 
X = 60 then 500 will keep the recorder on for 60 loops or 
about 30 seconds. Line 501 is an error handler to take care of 
the lack of input that line 502 will encounter. There will not be 
any data input because the black load plug has been un- 
plugged. Line 503 is the other half of the error handler state- 
ment and starts the loop all over again. Lines 504 and 505 
turn the cassette off. And line 506 returns the program to the 
main calling routine. 

10 GOSUB 500 

500 X-X + 1 

: IF X-60 THEN 504 

501 ON ERROR GOTO 503 

502 INPUT #-1 

503 RESUME 500 

504 POKE 16526, 248 

: POKE 16527, 1 

505 P«USR(0) 

506 RETURN JR 

Attack-Man 

Robert Patton 
Rt 3, Box 449 
High Point, NC 27263 

This game program was written on a Model III using 
Disk BASIC. 

10 CLS 

11 M-RND(964)-1 



: D$-CHR$(153) 
: PRINT (3 M, D$ 

20 H-0 

21 J-64 

22 K-128 

25 H-H ♦ 5 

: CLS 

26 IF H>832 GOTO 10 

27 IF J>896 GOTO 10 

28 IF K>960 GOTO 10 

29 PRINT @ M, D$ 

: M-M * 3 

: IF M>1023 GOTO 11 

30 PRINT @ H, CHR$(176) + CHR$(188) + CHR$(191) ♦ 

CHR$(191) + CHR$(191) + CHR$(179) + CHR$(191) + 

CHR$(143) 

: IF H-M GOTO 150 
45 J-J + 5 

: IF J-M GOTO 150 
50 PRINT $ J, STRING$(4, 191) + STRING$(2, 188) + 

CHR$(176) 

: IF J-M GOTO 150 
65 K-K + 5 

: IF K-M GOTO 150 
70 PRINT @ K, CHR$(128) + STRING$(7, 131) 

: IF K-M GOTO 150 
80 GOTO 25 

150 PRINT "TOO BAD, DO YOU WANT TO GO AGAIN (Y OR N)" 
155 Z$-INKEY$ 

: IF Z$-"" GOTO 155 ELSE IF Z$-"Y" GOTO 

10 ELSE IF Z$«"N" THEN END ELSE 150 Xk 

Word Scramble 

David Risack 

99 Stephenville Pky. 

Edison, NJ 08820 

When you feel a little scrambled, have fun scrambling 
your brain with "Word Scramble." This Model III Level II 
program will take two people, one to type the word and one to 
guess the word. I have solved the problem of scrambling 
words, by taking one letter at a time and randomly putting 
them into an array. 

1 ON ERROR GOTO 1000 
10 CLS 

: INPUT "TYPE IN WORD TO BE SCRAMBLED"; A$ 

: CLS 
20 A-LEN(A$) 

: DIM A(A) 
30 FOR X-l TO A 

: B-ASC(MID$(A$, X, 1)) 
40 RANDOM 

: N-RND(A) 

: IF A(N)<>0 THEN 40 ELSE A(N)»B 
50 NEXT X 
60 FOR X-l TO A 
70 PRINT CHR$(A(X)); 
80 NEXT X 
90 PRINT 

: PRINT 
100 INPUT "GUESS WHAT WORD IT IS "; B$ 

IF A$=B$ THEN PRINT "THAT'S RIGHT" 
FOR X=l TO 1000 
NEXT X 

RUN ELSE PRINT "TRY AGAIN" 
GOTO 60 
1000 IF ERR / 2 + 1-14 PRINT "* * * SORRY YOUR WORD 

CANNOT BE LONGER THEN PROVIDED STRING SPACE * * 

#•" 

: FOR X-l TO 1200 
: NEXT X 
1010 RUN JH 
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Pocket Computer 



Scrip for the PC-2 



Marion F. Brown 

P.O. Box One 

Marlow, NH, 03456.0001 



(Editor's Note: Mr. Brown's program not only demon- 
strates some of the excellent and sometimes surprising fea- 
tures of the PC-2, but also provides some marvelous 
examples of what can be accomplished with the PC-2 printer. 
The program has been faithfully reproduced as it was submit- 
ted. We have tried to present the information regarding the 
program as clearly as possible although we were unable to 
follow fully some of the more intricate routines. While the 
program is somewhat lengthy and complex, we think the 
dedicated PC-2 owner will delight in experimenting with this 
utilitarian and instructive program.) 

Enclosed is a program titled "SCRIP" which includes 
many short routines and mini-programs. An 8K Module and a 
printer are required. After CLOADing the program (of course, 
you will want to enter the program and then save it on tape 
before you begin experimenting), type i D E F ; CM3 and the 
Menu, which lists the options included, will be printed. 



PEEK ALL LIM EXO 

EX255 

LOAD L$ 0-91 

C/COUNT651 70-71 

POK 

SIZES 

iF1 STATUS 2GLOBAL 

iF30FF 

i4time 

i5LF1 6LF-2 

FREE 6 

COLORS 10 

BIORHYTHM 9110 

The first sixteen routines/mini-programs are accessed by 
entering fcfEF" ) and the appropriate Menu code such as 
DEF ) CMD to list the Menu, f DE~F~; CEfor the SCRIP pro- 
gram, ' D e Fl rpn for the Banners program, etc. The last 
seven routines (column 2) can be accessed by typing "G. " 
and the appropriate line number, i.e., G.5 for Status 2Global, 
G. 91 1 for Biorhythm, etc. For iF1 STATUS, you can also use 
Function Key 1 ; i4time, Function Key 4; i5LF1 , Function Key 
5; and 6LF-2, Function Key 6. 

A ALARM (Line 64700) 

The alarm routine is accessed by pressing i : D E FH CAj. 
The current time is displayed and then you are prompted for 
the alarm input in the form of: ALARM: HH.MMSS. After you 
input the alarm setting, the printer will write: ALARM @ MO- 
DAHH.MMSS and the display will show HH.MMSS until the 
alarm sounds. After the beep, the time will be printed and the 
display will return to the date/time setting, i.e. YYYY MO- 



M MENU (Line 20) 




= PGM. NAME 


F 


A ALARM 




B BANNERS FGHK 


G 


L LABEL 


H 


M MENU 


Z 


N TIME 


s 


J CALENDAR 




SPC DEFs 




D SCRIP 




X COPIES 




C EDIT SCRIP 


# 


K USED IN SCRIP 


Y 


V SHADOW 5000 


* 



DAHH.MMSS. (Note: After entering the program you may 
want to reset the time. This is done by typing: TIME = MO- 
DAHH.MMSS. In this case MO = month, DA = day, 
HH = hour, MM = minutes and SS = seconds. For more infor- 
mation about the time routine, see "N TIME.") While the alarm 
function is engaged, the computer cannot be used for other 
activities. 

B BANNERS FGMK (Line 4400) 

In order to use the "BANNERS" program, it is necessary 
to set up the RECIPE for each character or group of charac- 
ters on one line. That is the user designs the content, the size 
(S), the number of characters per line (LEN), and direction of 
printing H/V) and must have previously determined the REC- 
IPE factors of F G H and K. This can only be done by 
experimentation. To explain the recipe formula we'll use the 
following example. 

RECIPE FORMULA (Line 64015) 

S LF G H K LEN 

36 F-12 1 33 9 1L 

First the size is listed (S) 36; the next four characters show 
the reverse line feed after each print (LF) F-12; then comes 
the line feed at the end of the 4th color change (G) 1 ; the total 
times the line is printed (H) 33; the line feed after the total lines 
are printed (K) 9; and finally the line length (LEN) 1L. The 
elapsed time to print a banner using this recipe was 57 
minutes, 55.0 seconds or 7.02 Char/Sec (57 *60 + 55)/33/1 5 
= 7.020202) including 2 spaces 33 times. (If you try it, don't 
sit and watch — go for a jog.) 

SIZES SUMMARY CHART (A Few of Thousands) 

Vertical (Rotate 1) 















CHAR/ 


S LF 


G 


H 


K 


LEN 


CONTENT 


SEC 


6 F-10 





5 


10 


5L 


SCRIP 


1.63 


6 F-12 





4 


10 


6L 


SCRIP 


1.37 


7 F-12 





2 


12 


5L 


SCRIP 


1.29 


9 F- 4 


1 


9 


4 


1L 


FINAL 


3.59 


13 F-13 


1 


13 


12 


3L 


COLORS 


2.60 


14 F-22 





33 


22 


5L 


FINAL 


2.53 


14 F-22 





33 


22 


5L 


FOOT PRINT 


2.37 


23 F-22 


1 


33 


23 


3L 


TRS-80 


3.71 


23 F-22 


1 


33 


23 


3L 


ABCDEF 


4.49 


28 F-18 


1 


33 


16 


2L 


ABCDEF 


5.68 


36 F-12 


1 


33 


9 


1L 


ABCDEF 


8.17 


36 F-12 


1 


33 


9 


1L 


ALL CHAR 


7.21 


Horizontal (Rotate 0) - 








GROUP 1 














51 F-11 


-1 


9 


17 


1L 


All except 
GROUP 2 


10.00 
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GROUP 2 
51 F 2 -1 



27 1L Only IJLNTUV 
WXZijl57!0 
< > and sq. 
root sign 8.37 



The four characters, quotation mark(34), insert symbol 
(39), the Yen(92), and the Tilde(1 26). must be POKEd into the 
appropriate memory location, using the formula: 

POKE(STATUS3 + 7 + (L-1)*18)),nnn 

(nnn being the ASCII value for the character 

being POKEd) 

For horizontal printing there appear to be at least two 
"families" of characters, relating to the manner in which the 
pen draws the character. For vertical printing, all of the print- 
able ASCII characters seem to be in one "family." 




PROCEDURE FOR MAKING A BANNER 

1 . Decide on the content. For our example we have chosen 
"SCRIP". 

2. Select the size (S) and refer to Table 1 to get the F G H K 
values. For example if your choice were size (S) 23 with 3 
characters per line (LEN) the F G H K variables would be 
-22, 1 , 33, 23. The 33 (H) could be decreased to 5 or 9 or 
increased to as much as 45 for a satisfactory spacing 
pattern. It is desirable to have H = (multiples of 4) + 1 in 
order to have the pen finish in COLOR (black). 

3. For our first example we used the variables from TABLE 1 
for size 6, 5L. (On our second example, we used the 
variables for size 9.) After turning on the PC-2 (with the 
program resident in memory) for the first example, we 
typed the following: 

F = -10, G = 0, H=5, K = 10 fFNTE~ FP 
These variables can be entered at the outset, or they can 
be INPUT when prompted later. If entered before initiat- 
ing the program, they will appear in the DISPLAY at step 
12 for a final check. 

4. Press ( DEF) Q21 

5. The DISPLAY reads "OK? Y/N " If you are ready type 3D 
, en T E R ) . If not ready, press Cbr e a k . 

6. Prompt: SIZE? 2 OR (1-255)? Our response for the first 
example was 6; then press fE N t~e~ r~] 

7. Prompt: HORIZ. OR VERTICAL? HA/? Example 1, re- 
sponse: (VJ rE~N TE~R). 



8. Prompt: NO. OF LINES'? (91 MAX) For our first example 
we discovered we could input 5 characters per line. Two 
extra lines are required in the Banners program, there- 
fore our response to the prompt for number of lines was 
3, then CE N T E R_ . (NOTE: The number of lines is always 
2 more than the actual number. Following the last line of 
character input, the next to last line should contain a 
"FLAG" consisting of " + + "; this signals the program 
that content input has been completed. No nput is en- 
tered on the last line. After typing the FLAG " '+ + " on the 
next to last line, press enter . At the prompt for the 
last line hit JTRE a k - See Step 10.) In our second 
example, we discovered we should enter only one char- 
acter per line for CSIZE 9, therefore our response to the 
prompt for number of lines was 7. 

9. Prompt: NO. OF COPIES'? Respond to the prompt for 
number of copies with 1 then en ter . 

1 0. Prompt: TYPE (Preceded by a quick display of line count 
for each line, i.e., "1 OF 3, " "2 OF 3," etc.) 

INPUT 

Line 1 OF 3, TYPE: SCRIP , E NTER S 
Line 2 OF 3, TYPE: + + ; E NTETT 
Line 3 OF 3. TYPE: B R E A Kl 

11. Now press ; D E F " . (Ji 

12. The display reads "BANNERS:MISC. OR TRS? M/T" 
Type M then "enter . 

13. The display should show the variables entered in step 3 
which for our first example would be "-10 5 10." Check 
the variables for correctness, then press e nte FT ,. 

F = -10, G=0, H=5, K=J0 

-J0 



5 

10 



121208.3219 



n 

i=i 

"0 



Example 1 



121208. 3257 
ELAPSED TIME" 

0.00380 
S/C 1.52 
USED: 
CSIZE 6 
DIRECTION U 
« LINES 1 

n copies i 

COLOR 
1st LINE SCRIP 
Nth LINE SCRIP 
6F-10 5 10 5L 
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1 4. The display will read "FGHK." If the variables previously 
displayed were not correct then INPUT all variables again 
as shown in step 3, using the correct figures. If the vari- 
ables were satisfactory, press (enter' . The result is 
shown in our examples 1 and 2 and includes the IQJLEJ 
C\C, data. ( DE F ) fTT) lists the parameters selected for 
typing, for making Banners, and shows the "Recipe" in a 
compact form at the completion of all Banners. (See K 
USED IN SCRIP for more information.) 

15. If for some reason you should decide to abort the RUN 
before completion by pressing (break ). let S = 2, 
D$ = "H" to leave things tidy and start over again. 

F=-4, G=l, H=9, K=4 

-4 
1 
9 
4 

121208.3627 





Example 2 



121208.3921 
ELAPSED TIME 

0.02539 
S/C 3.86 
USED: 
CSIZE 9 
DIRECTION U 
# LINES 1 
tt COPIES 1 
COLOR 
1st LINE S 
Nth LINE S 
9F-4 1 9 4 1L 



L LABEL (Line 65260) 

This routine is set to print Mr. Brown's name, address and 
telephone number. You can substitute your own address data 
and have a quick print return address label for all your letters, 
packages, etc. 

N TIME (Line 64900) 

The time routine will display the current time setting in the 
form of YYYY MODAHH.MMSS, e.g., 1984 10309.1525. In 
order to leave this routine you must hit the (BREAK ) key 
twice. You may find yourself in this routine when you turn the 



computer off for a short period and then turn it back on. Just 
hit the :~b~r~ eaki key twice to exit. 

J CALENDAR (Line 6009) 

Press ( D E F ) GD to access this program. You will be 
prompted with: # MONTHS. Enter the number of months you 
want printed. For a year's calendar, enter 12. The next 
prompt requests the precise period to be covered with: 
START (MM. YYYY). To get our 1984 calendar, we entered: 
01.1984. 



12 MONTHS 

122909.2637 

JAN 1984 
S M T U T F S 
12 3 4 5 6 7 
8 91011121314 

15161718192021 

22232425262728 

293031 

FEB 1984 
S M T U T F S 

12 3 4 

5 6 7 8 91011 

12131415161718 

19202122232425 

26272829 

MAR 1984 
S M T U T F S 
12 3 

4 5 6 7 8 910 
11121314151617 
18192021222324 
25262728293031 

APR 1984 

5 M T U T F S 
12 3 4 5 6 7 
8 91011121314 

15161718192021 
22232425262728 
2930 

MAY 1984 

5 M T W T F S 
- - 1 2 3 4 5 

6 7 8 9101112 
13141516171819 
20212223242526 
2728293031 

JUN 1984 

S M T U T F S 

12 

3 4 5 6 7 8 9 
10111213141516 

17181920212223 
24252627282930 

Example 3 



JUL 1984 

S M T U T F S 

12 3 4 5 6 7 
8 91011121314 

15161718192021 
22232425262728 
293031 

AUG 1984 
S M T U T F S 

- - - 1 2 3 4 
5 6 7 8 91011 

12131415161718 

13202122232^25 
262728293031 

SEP 1984 

sn TUTFS 

1 

2 3 4 5 6 7 8 
9101112131415 

16171819202122 

23242526272829 

30 

OCT 1984 

S M T U T F S 

- 1 2 3 4 5 6 
7 8 910111213 

14151617181920 
21222324252627 
28293031 

NOU 1984 

S tl T U T F S 

- 1 2 3 

4 5 6 7 8 910 
11121314151617 

lgI32@2ii: 



>2324 

12627282930 



OEC 1984 
S M T U 



T F 



S 
1 

2 3 4 5 6 7 8 

9101112131415 

16171819202122 

23242526272829 

3031 

12 MO. 122909.322 
6 
ELAPSED TIME 

0.05490 
SEC. /MO. 29.0 
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SPC DEFs (Line 65277) 

Access this routine by pressing CEEZP 
[spa ce B A~Rl . It will produce a list of all of the DEFined 
labels as well as many other symbols and even numerals that 
can be used for addresses for GOTOs, GOSUBs, and just 
plain markers for significant addresses. The line numbers are 
also listed. 

D SCRIP (Line 62010) 

SCRIP converts the PC-2 into a mini-typewriter, to type 
memos, explanatory notes, labels, etc. during program de- 
velopment and/or execution, and to experiment with an ap- 
parently new area of pattern development by the use of sizes 
larger that the usual CSIZE9. The program is designed for up 
to 91 lines with up to 1 8 characters per line; however, the user 
can also select any size from 1 to 255. (For an illustration of 
this facility, run the Sizes Demonstration program — idefi 
3D.) 

Thanks to Mr. Norlin Rober, Master Sleuth, the use of 
&79F (Dec 31 220) makes it easy to develop some interest- 
ing and unusual patterns with these larger size characters. 

PROCEDURE FOR USING SCRIP 

1. To initiate the SCRIP program, press fETET*) 3D- 

2. The display shows: OK?Y? To proceed, type "Y" and then 
Te n t e r . '. 

3. The display then reads: SIZE? 2 OR (1-255) ? 

Enter the character size you want printed. If you do not 
enter a number and just press [enter] , the program will 
default to size 2. 

4. The next prompt is: HORIZ. OR VERTICAL? H/V Enter H or 
V. The default for fE N T E R ) is horizontal (H). 

5. Display will prompt: NO OF LINES ? (91 MAX) Enter the 
number of lines desired and press sent e r~) : the default 
entry for rENTE^l is 1 . 

6. Prompt. NO. OF COPIES ? Enter the number of copies 
desired and press fE N TITr") . If you do not enter a num- 
ber and just press ienterI the default entry is 1 . 

At this point you are ready to begin typing. A prompt 
appears for the first line entry of up to 1 8 characters. After the 
brief flash of " 1 OF 3," you will see the TYPE: prompt. For our 
example 4 we used the default size (2), the default direction 
(H), 3 lines, and 1 copy. For example 5 we varied the size only, 
using 5 to show how the program will accept up to 18 
characters per line but the output will wrap around if all the 
characters for a line cannot be physically printed on a single 
line. After the last of N lines is typed and ENTERed the 
requested number of copies is automatically printed. 

THIS IS THE SCRIP 
PGM. UP TO 18 C/L 
123456789012345678 
Example 4 

If additional copies are needed later (before CLEARing 
or reDIMensioning by this or any other program) just press 
(DE F ) (X) and follow the prompts. After the number of extra 
copies is ENTERed, press any character, then press 
(enter ) once more and the extra copies will be delivered. 

Although the SCRIP program is designed for up to 91 
lines (required to test that all of the printable ASCII characters 
could be perfectly printed at the largest possible size), the 



THIS IS 
THE SC 

RIP 

PGM. UP 

TO 18 

C/L 

1234567 
8901234 
5678 



Example 5 



"SCRIP" DIMension can be reduced to 50 lines, or any 
desired number, at a savings of 18 bytes per line by the 
following changes: (using 50 as an example) 

In line 62010 change DIM L$(91) to DIM L$(50) 
then in line 62070 change (91 MAX) to (59 MAX) 

VARIABLES IN THE SCRIP PROGRAM 

C Number of Copies selected (Default = 1) 

D Copies counter 

E Used in Def C (Change or edit a line) 

F G H K Used in DEF B (Banners), DEF K, etc. 

For "RECIPE" only, use G.6401 5 or GOTO 6401 5 

L Number of Lines selected (Default = 1) 

M Lines Counter 

N Line input pointer 

S Size selected (1 to 255; Default = 2) 

For sizes other than 1-9 use POKE &79F4 
Decimal 31220. (CAUTION!! LOOK FIRST!! 
Then POKE) 
L$(91)*18 DIMs for up to 92 lines, with up to 18 characters 
per line. User may increase or decrease the num- 
ber of lines depending on available memory. 
Each line requires 1 8 locations (1663 for 92 lines). 
A total of 92 lines are necessary to check the full 
ASCII list for the large sizes of printing (including 
housekeeping) for edit, additional copies, etc. For 
only 50 lines (a saving of 738 locations) make the 
following changes: 
Line 62010 L$(50) 
Line 62070 L>50 
50MAX 



Instead of L$(91) 
Instead of L>91 and 
Instead of 91 MAX 



D$ 



Direction selected (HA/ in D$) Default = H 



AAB$Z$BIJQTWXZ Also used in Banners, etc. 
NOTE: DONT TRY TO CHANGE COLORS BY POKEing. 

X COPIES (Line 62080) 

This is a subroutine to be used with SCRIP or Banners. 
You are prompted for the number of copies desired in the 
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SCRIP program but extra copies can be called for until the 
memory has been CLEARed by this or some other program. 
After your entry has been printed, press 35JLF x and enter 
the number of extra copies you want. You will be prompted 
with the TYPE: prompt. Hit any key and ENTER 

It should be noted (Line 62010) that CLEAR is not used 
before DIMensioning. Use is made of CALL&D091 which 
permits the retention of the fixed Variables (A-Z) for use in 
some of the other related programs such as DEF K, the 
Banners, the RECIPE, etc. 

C EDIT SCRIP (Line 62500) 

After you have entered your SCRIP lines or after you 
have run your entry once, you may want to change the text. 
This subroutine lets you change your entry but the entire line 
must be changed. 

1. Press iPTFi x: 

2. The display will prompt: WHICH LINE NO.? If you want to 
change line 5, then press i'jl- and ; ~E NT E R 

3. The display will show the current line content such as: 5 is 
GAME. Press ENTER 

4. Display will prompt: CHANGE TO ... . Type your re- 
sponse and en te r" . 

5. To print your new SCRIP entry with the change you can use 
fDE F1 QO and print 1 or more copies. Although only 
entire lines can be changed with this routine, a means is 
available to POKE certain characters (quotation mark, the 
tilde, the insert symbol, and the Yen sign) into the appropri- 
ate memory location. You can use the Z POK routine; just 
type fp~E F lZT to access. The four characters, quotation 
mark(34), insert symbol(39), the Yen(92), and the 
tilde(126), are POKEd into the appropriate memory loca- 
tion by using the formula: 

POKE(STATUS 3 + 7 + (L-1)* 18)),nnn (nnn = ASCII value) 

K USED IN SCRIP (Line 64000) 

Lists the parameters selected for typing, for making Ban- 
ners, and shows the "RECIPE" in a compact form at the 
completion of all Banners. In experimenting with the various 
sizes, characters per line (LEN), etc., this record was found to 
be extremely valuable. Entering DEF CK will result in a 
printout listing the CSIZE. direction, number of lines, number 
of copies, the color pen used, the content of the first line, the 
content of the last line, and the Recipe Formula used in the 
last SCRIP or Banners entry. 

G LOAD L$ 0-91 (ALL ASCII CHARACTERS) 

This program produces a sample run of all characters. It 
was found that many characters could be printed at Size 36 
< Vertical > and at Size 51 < Horizontal > . However, Size 51 
<H>required two groups, with different "RECIPES." This 
routine, accessed by typing DEF C_T, can only be used 
with the Size 36 Vertical sample. In order to make certain that 
all the ASCII characters could be printed without distortion, 
this routine LOADS all 91 into L$(0) to L$(90), the last one 
being for the FLAG "++". 

Procedure For Size 36 Vertical 

I.Set the F G H K values: F = -12 G = 1 H-1 K = 9 
We chose to set H at 1 to save time and paper. At this 
setting it will take 12 minutes. 



2. Press (QE FJ C_C. Type ___ J, then 

3. Type 36 fE NTETT) at the size prompt. 

4. Type V : EN TER; at the HA/ prompt. 

5. Then Press BRETak" 

6. Press CPE (___ • This command will LOAD the ASCII list 
into L$(0) to L$(90), including the FLAG " + + " (Program 
line 8030). 

7. Press ■ D E F~) C1D 

8. Type M enter at the M/T prompt. 

9. The Display should show "-12 1 1 9" (the values set in 
step 1 above). Press iE¥ T"E R~) 

1 0. Press :~e N t E R l again and the ASCII list will be delivered 
in about 12 minutes. 

Procedure For Size 51 Horizontal 

The characters must be individually entered, line by line, 
in two groups. 

1 . For Group 1 (all characters except Group 2) the F G H K 
values are: F--11 G = 1 H = 1 K = 17. The values for 
Group2(IJLNTUVWXZ57!0< > and the square root sign) 
are: F = 2 G = -1 H = 1 K = 1 7. (If you want shadow printing 
then H = 5 or more in each case.) 

2. Press I D E F 3D, Type CYj, then rETTT E R j. 

3. Type 51 f -T~ N T E ft") at the size prompt. 

4. Type H CE NTERl at the HA/ prompt. 

5. Number of lines for Group 1 : 71 
Number of lines for Group 2: 23 
The last two lines in each case are: 
Line 70/22: + + 

Line 71/23: ( BREAK ] 

6. When entering Group 1, use dummies for the quotation 
mark(34), insert symbol(39). yen(92). and the tilde(1 26) 
which must be POKEd to the dummies. After the 
; B R E A K on line 71 for Group 1 , fDET CZj and POKE 
using the formula: 

POKE(STA.3 + 7 + (L-1)* 1 8)),nnn (nnn = the ASCII value of 
the character being POKEd) 

7. Press i D FF JC and respond M [ENTER, to the T/M 
query. If the FGHK values are correct press f E N T E R 
again and you will get a printout of all characters at Size 51 . 

S SIZES (Line 65220) 

This program provides a demonstration of the sizes from 
1 to 255 and shows the number of characters per line that are 
possible at each size. The size number is POKEd into Mem- 
ory Location &79F4 (Decimal 31220) for sizes larger than 
CSIZE9. The resulting tape requires 27 minutes +/-. 

* BIORHYTHM (Line 9110) 

Accessed by typing: G.91 10 or G."*", this program will 
produce a biorhythm chart. After typing G.91 10 IE.MT.EB_',, 
you will see the prompt: START(MM.YYYY). Enter the date of 
the month on which you want the chart to begin. You are then 
asked to enter the name of the person for which the chart is 
being made. Next you are asked to enter that person's birth 
date (MMDD.YYYY)'and finally the number of months to be 
covered by the chart. Mr. Brown included a sample chart for 
Elvis. 
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122914. 1656 
2 MONTHS 
START JUL 1377 
BIORHYTHHS FOR 
ELUJS 
BORN JAN 8, 1935 

--PHYS 
--EI10T 

--INTEL 




Example 6 



15545 
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DEFined LABELS, MARKERS FOR GOTO AND GOSUB 
ADDRESSED 

In addition to the usual DEF LABELS (ASDFGHJKLZX- 
CVBNM = and the space bar), most if not all of the other 
characters, including numerals and those not available from 
the keyboard can be used as GOTO and GOSUB addresses 
in the program as well as manually from the keyboard, if they 
are used as STRINGS. For example, the use in lines 4000 "@ 
. , . " and 4420 GOTO"® . . . " was very helpful as the entire 



program had already used up all of the orthodox DEF labels. 
Some memory can also be saved if the line numbers are 
above 3 digits and referred to often. 

PAPER AND PENS 

Either the small rolls (26-3606) or the larger Calculator 
Paper (65-710) can be used. When printing banners with the 
larger sizes with the reverse line feed of LF-6 to LF-24, the roll 
of paper should be put on an external stand with plenty of 
slack between the paper and the printer. The testing of these 
exercises probably provided the ultimate test of the rugged- 
ness of the printing mechanism of the TRS Printer-Interface. 
The size 36 Banner test for all 91 characters took almost 6 
hours of continuous printing and during that time the pens 
probably printed almost 1/4 mile of inked lines (a 
guesstimate). 



MEMORY REQUIREMENTS 

Scrip and Error Routine 
Shadow Printing 
K Parameters Used 

Subtotal 
Banners M isc or TRS ?M/T 
Elapsed and Average 
Time 
L$ (90-91) Load and Print 

Subtotal 

Total SCRIP et al 
Sizes Demonstration 
Colors 

ARUN and time LCD 
Characters per line DEF H 
DEFs DEF " " 

Subtotal 
Calendar 
Biorhythms 

Program Name, Menu, 
Etc. 

Subtotal 

TOTAL (Status 2) 



641 
87 

183 

626 

135 
252 



1483 

78 

57 

134 

117 

1438 
1550 

1576 



911 



1013 



1924 



1869 



4564 



8357 



AND EVEN MORE 

There is more to explore in this program. DEF. H 
counts the number of characters per line and lists number/ 
per line and cumulative; IDEF) GD is a PEEK routine which 
prompts: ALL.LIM.EXO.EX255; HE CD prints the Pro- 
gram name and creation data: and ibE F ) fv") is a shadow 
print routine which functions as a subroutine of the Banner 
program. And that's not all. def r produces a GOTO 
prompt which provides quick access to other parts of the 
program such as: E F FT CiL' ! provides the number of 
free bytes; def: fff . (T, produces a test of the color pens; 
and (DEF) (3D GT produces a status printout. 

(Editor's Note: The program requires all the available 
memory space. You may want to NEW0 before you begin 
entering the program. Program line annotations were pro- 
vided by the author. A very large THANK YOU and tip of our 
hat to Mr. Brown for his contribution.) 
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SCRIP PROGRAM 

1 ARUN 

: LF -5 
: GOTO "I" 

2 "♦" L-(W-INT W)*1E4 
M-INT (W/100) 
N-INT W-(INT ((INT W)/l| 
RETURN 

3 "E" BEEP 7 
: PAUSE "OOPS ERROR!" 
: END 

4 "0" LPRINT "GLOBAL"; TIME 
GOSUB 14 
GOSUB 20 
GOSUB 5 
END 

5 "P" TEXT 
USING 
CSIZE 2 
COLOR 3 

LPRINT "STATUS" 
COLOR 

LPRINT "1983";TIME 
FOR 1-0 TO 4 
LPRINT I; STATUS I 
NEXT I 

6 "#" ON ERROR GOTO 3 
USING 

LPRINT "FREE"; STATUS 3-STATUS 2 
RETURN 

7 "T" Z-DMS ((DEG TIME )-T) 
LPRINT TIME 

LPRINT USING "###.#####"; "ELAPSED TIME",Z 
USING 
RETURN 

8 "W" Z$-STR$ Z 
: V-3600*(VAL LEFT$ (Z$ ,2))*60*(VAL MID$ 
(Z$,3,2))+VAL MID$ (Z$,5,3)/10 
: RETURN 

9 "U" Q$(0)-"JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC" 
: RETURN 

10 "Y" COLOR 
LPRINT "TEST" 
LPRINT "BLACK"; 
COLOR 1 

LPRINT "BLUE"; 
COLOR 2 

LPRINT "GREEN"; 
COLOR 3 
LPRINT "RED" 
COLOR 
END 

14 "-" COLOR 3 
USING 

LPRINT "SCRIP"; 
COLOR 

LPRINT " FT.W 7/29/83" 
LPRINT "1983";TIME 
LPRINT "39A42A 2-186RES193 

18 LPRINT "ORIG 
1685.8358" 

LPRINT "NOW "; STATUS 0; STATUS 1 
LPRINT "30823.14533"; PEEK 30823; PEEK 30824 
GOSUB 97 

19 ON ERROR GOTO 3 
: LPRINT "CR2" 
: RETURN 

20 "M" COLOR 3 
LPRINT "MENU" 
COLOR 
ON ERROR GOTO 3 

25 LPRINT "- PGM. NAME","A ALARM" 
: LPRINT "B BANNERS FGHK" 
: LPRINT "L LABEL","M MENU 



30 LPRINT "N TIME" 

: LPRINT "J CALENDAR", "SPC DEFs 
40 LPRINT "D SCRIP", "X COPIES" 

: LPRINT "C EDIT SCRIP", "K USED IN SCRIP' 

: LPRINT "V SHADOW 5000 
50 LPRINT "F PEEK ALL LIM EX0 EX255" 

: LPRINT "G LOAD L$ 0-91" 

: LPRINT "H C/COUNT 65270-71 " , "Z POK 
60 LPRINT "S SIZES", "iFl STATUS 2GL0BAL" 

: LPRINT "iF30FF","i4time" 

: LPRINT "i5LFl 6LF-2 
85 LPRINT "* FREE 6","Y COLORS 10" 

: LPRINT "* BIORHYTHM 9110 iiiFl" 

: RETURN 

97 "R" R$-STR$(PEEK &C443) + STR$(PEEK &C5BD) 

: IF R$-"56129" LPRINT R$ ; " REV. A01 " 
: RETURN 

98 IF R$-"59129" LPRINT R$ ; " REV. A03" 

: RETURN 

99 IF R$-"5974" LPRINT R$ ; " REV. A04" 

: RETURN 
3000 "X" FOR AA-1 TO 26 

: IF @(AA)<>707 LPRINT CHR$ (AA+64 ) ; @(AA) 
3010 NEXT AA 
: BEEP 5 
: END 
3100 "3" FOR AA-1 TO 26 
: @(AA)-707 
: NEXT AA 
: END 
3200 "?" FOR B-91 TO 094 
: LPRINT "";B 
: NEXT B 
: END 
4000 "@" WAIT 

: PRINT F;G;H;K 
: INPUT "F,G,H,K";F,G,H,K 
4010 T-DEG TIME 

: LPRINT TIME 
: LF 1 
4050 L-l 

: Q-0 

: L$-L$(0) 
: W-0 
4100 L$(0)-L$(Q) 

: W-W+LEN L$(0) 
: PAUSE L$(0);L;M;N 
: IF L$(0)-"*+" THEN 4130 
4120 GOSUB "V" 
: Q-Q+l 
: GOTO 4100 
4130 GOSUB 7 

: GOSUB 8 
: L$(0)-L$ 
: X-V/(W-2)/H 

: LPRINT USING "###.##"; "S/C";X 
: USING 
: GOTO "K 
4400 "B" INPUT "BANNERS 

: MISC. OR TRS? M/T";B$ 
: IF B$-"T" THEN "Q 
4410 IF B$<>"M" THEN "B 
4420 GOTO "@ 
4500 "Q" F— 22 
G-l 
H-13 
K-23 

INPUT "TRS F,G,H,K";F,G,H.K 
4510 S-23 

D$-"V" 

C-l 

T-DEG TIME 

LPRINT TIME 

W-0 

LF 2 

L$-"TRS 
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4550 RESTORE 4650 
4600 READ L$(0) 

: W-W+LEN L$(0) 
: IF L$(0)-"++" THEN 4630 
4620 GOSUB 5000 

: GOTO 4600 
4630 GOSUB 7 

: GOSUB 8 
: X-V/(W-2)/H 

: LPRINT USING "###.##"; "S/C";X 
: USING 
4640 CSIZE I 

: LPRINT "AIN'T THAT SUMP~N!" 
: CSIZE 2 
: LF 3 
: GOTO "K 
4650 DATA "TRS", "-80", " PC", "-2 ","TAN","DY ","RAD" 

"10 ","SHA","CK ","♦+ 
5000 "V" J-0 
: USING 
5010 FOR 1-0 TO 3 
D-0 

COLOR I 
GOSUB 62110 
LF F 
J-J+l 
PAUSE H;J 
IF J<H NEXT I 
LF G 

GOTO 5010 
5020 LF K 

RETURN 
6005 "J" COLOR 
: CALL &D091 
: DIM A$(43)*2,Q$(0)*36 
: INPUT "# MONTHS ";X 
: GOSUB 9 

6010 INPUT "START (MM.YYYY)";F 
: USING 

: LPRINT X;" MONTHS 

6011 T-DEG TIME 

: LPRINT TIME 

: A- INT F 

: B-INT ((F-A)*1E4) 

: Y-0 

6015 Y-Y+l 

: IF Y<X*1 RESTORE 6022 
: GOTO 6019 

6016 LPRINT X;" MO. "; 
: GOSUB 7 

6017 LPRINT USING "###.#"; "SEC. /MO. "; 
(60*INT(Z*100)+100*(100*Z-INT(Z*100)))/X 
: USING 

: END 
6019 COLOR 3 

LPRINT MID$ (Q$(0),(A*3-2),3);B 
COLOR 

IF B<1700 OR A+B<1703 OR B+A/10>2200. 2 
THEN 6400 

6021 FOR 1-12 TO 42 
READ A$(I) 
NEXT I 
GOTO 6045 

6022 DATA " 1"," 2"," 3"," 4"," 5"," 6"," 7"," 8", 
.i 9" | »l0","ir , ,"12", ,, 13","14 

6023 DATA "15 ","16 ","17", "18", "19", "20", "21 ", "22", 
"23", "24", "25", "26", "27", "28 

6024 DATA "29", "30", "31 
6045 E-621048 

: C- 365. 25 

: IF A<-2 LET D-INT( 30.6*(A+13 ) ♦ 

INT(C*(B-1))-E 

: GOTO 6055 
6050 D-INT(30.6*(A+1))+INT(B*C)-E 
6055 IF D>146097 LET D-D-l 
6060 TF DO73047 LET D-D+l 



: IF IX-36522 LET D-D+l 
6075 D-D/7 

D-INT(7*(D-INT D)+1.49) 
IF A-4 OR A-6 OR A-9 OR A- 11 LET C-30 
GOTO 6105 

6080 IF A-l OR A-3 OR A-5 OR A- 7 OR A-8 OR 
A-10 OR A-12 LET C-31 
: GOTO 6105 
6090 C-28 

: IF (B/4«INT(B/4))*(B/lE2<>INT(B/lE2))-2 
LET C-29 
6095 IF B-2E3 LET C-29 
6105 FOR E-l TO D-l 
: A$(E*5)-" -" 
: NEXT E 
6110 FOR E-l TO C 

A$(D+E+4)-A$(E*ll) 
NEXT E 

FOR E-D+C+5 TO 42 
A$(E)-"" 
NEXT E 
6125 LPRINT " S M T W T F S" 

: LPRINT A$(6);A$(7);A$(8);AS(9);A$(10); 
A$(11);A$(12) 
6130 LPRINT A$(13);A$(14);A$(15);A$(16);A$(17) 

A$(18);A$(19) 
6135 LPRINT A$(20) ; A$(2l ) ; A$(22) ; A$(23 ) ; A$ (24) 

A$(25);A$(26) 
6140 LPRINT A$(27);A$(28);A$(29);A$(30);A$(31) 

A$(32);A$(33) 
6145 LPRINT A$(34) ; A$(35 ) ;A$(36) ;A$(37 ) ; A$(38) 
A$(39);A$(40) 
: LPRINT A$(41);A$(42) 
6153 A-A+l 

: IF A<-12 GOTO 6015 
6155 A-l 

: B-B+l 
: GOTO 6015 
6400 BEEP 7 

: LPRINT TIME 
LAST 2/2200" 
: GOTO 6005 
8000 "G" FOR 1-65 TO 90 
L$(I-65)-CHR$ I 
NEXT I 

FOR 1-97 TO 122 
L$(I-71)«CHR$ I 
NEXT I 
8010 FOR 1-48 TO 57 

L$(I*4)-CHR$ I 
NEXT I 

FOR 1-32 TO 47 
L$(I+30)«CHR$ I 
NEXT I 
8020 FOR 1-58 TO 64 

L$(I+20)-CHR$ I 
NEXT I 

FOR 1-91 TO 94 
L$(I-6)-CHR$ I 
NEXT I 
8030 L$(89)-CHR$ (126) 
: L$(90)-"++" 
: END 
8100 "PI " USING 

FOR 1-0 TO 91 
LPRINT I;" ";L$(D 
NEXT I 
END 
9110 "*" USING 
CLEAR 

DIM A$(0)*18,Q$(0)*36 
INPUT "START (MM.YYYY";Z 
GOSUB 9 
M-INT Z 
L-(Z-M)*1E4 
9120 G-L 



EARLI- EST VALID MONTH 3/17( 
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— PHYS" 



— EMOT" 



--INTEL" 



(-)...»..(+) 



H-M 

TEXT 

COLOR 

GOSUB 9700 

GOSUB 9600 

O-A 

INPUT "NAME? ";A$(0) 
9125 INPUT "BORN (MMDD. YYYY"; L$ 

: W-VAL L$ 
9130 GOSUB 2 

INPUT "# MONTHS? ";U 

LPRINT TIME 

LPRINT U;" MONTHS 
9140 LPRINT "START ";USING "#####" ;MID$ (Q$(0) ( 
(H*3-2),3);G 

LPRINT "BIORHYTHMS FOR" 

COLOR 3 

LPRINT A$(0) 
9145 COLOR 

9150 LPRINT "BORN ";MID$ (Q$ (0) , (M*3-2) ,3) ; 
USING "###";N;",";USING "#####";L 

GOSUB 9600 

P-A 

A-O-P 
9155 0-0 

P-0 

LF 1 

USING 
9130 COLOR 3 

LPRINT 

COLOR 1 

LPRINT 

COLOR 2 

LPRINT 

LF 1 

COLOR 

LPRINT 
9190 LF 1 

: LPRINT Z 
: LF -2 
9205 GRAPH 
9208 GLCURSOR (100,0) 

SORGN 

Y-I*-12.5 

LINE (-100,0)-(U5,0) 

LINE (0,0)-(fi,Y) 

LINE (115,Y)-(115,0) 
9240 FOR Q»5 TO 30 STEP 5 
: R-Q 

: IF Q-30 LET R-I 
9250 Y-R*-12.5 

LINE (-90,Y)-(115,Y) 

X-80 

S-Y+5 

LINE (115,S)-(X,S),9 

LPRINT USING;R 

NEXT Q 
9330 B-INT (A/23) 

B-A-(23*B) 

C-INT (A/ 28). 

C-A-(28*C) 

D-INT (A/33) 

D-A-(33*D) 

FOR J=l TO 3 
9420 COLOR J 

E-0 

FOR Y-0 TO I 

IF J-3 LET X-SIN ( (B+Y)/23*360 )*l 
9430 IF J-l LET X-SIN ((C+Y)/28*360)*80 
9440 IF J-2 LET X-SIN ( (D+Y)/33*360)*80 
9470 S-Y*-12.5 

F-0 

IF E=0 LET F=9 

E=l 
9517 LINE (0,P)-(X.S),F 
: 0=X 



P-S 

NEXT Y 
NEXT J 
TEXT 
LF 1 
COLOR 
T-T+l 

IF U>T THEN 10010 
9520 USING 

: LPRINT A;TIME 
: END 
9600 IF M-3>=0 LET M-M+l 

: GOTO 9620 
9610 L-L-l 

: M-13+M 
9620 A-INT (365.25*L)*INT (30.6*M)+N 
: A-A-INT (L/ 100)+ INT (L/400) 
: RETURN 
9700 IF M-2 GOTO 9790 

9740 IF M«4 OR M-6 OR M»9 OR M-ll GOTO 9770 
9750 1-31 

: GOTO 9900 



9770 


[-30 






: GOTO 9900 






9790 K-INT (L/4) 






: K-L-K*4 






9800 IF K-0 GOTO 9840 




9820 1-28 






: GOTO 9900 






9840 K-INT (L-100) 






: K»L-K*100 






: IF K-0 GOTO 


9850 




9847 GOTO 9890 






9850 K-INT (L/400) 






: K-L-K*400 






: IF K-0 GOTO 


9890 




9870 GOTO 9820 






9890 1-29 






9900 RETURN 






10010 V-Z+l 






: IF V>13 LET 


V-V-l 1.9999 




10015 Z-V 








M-INT Z 








L-(Z-M)*1E4 








G-L 








H-M 








TEXT 








COLOR 








IF H>12 LET 


H-l 






G-G+l 








L-G 








M=H 






10060 TEXT 








COLOR 








N-0 








GOSUB 9700 








GOSUB 9600 








O-A 








GOSUB 2 








LPRINT USING "###.####";V 






LF -2 






10110 GOSUB 9600 








P-A 








A-O-P 








0-0 








P-0 








USING 








GOTO 9205 






61000 "F" INPUT "ALL,LIM,EX0,EX255' 


;P$ 


61010 IF P$-"ALL" 


LET P=. 1 




: Q-P 






: GOTO 61J00 






61020 IF P$-"LIM" 


LET P-0 




: Q-255 






: GOTO 61100 






61030 


IF P$-"EX0" 


LET P-0 
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61040 

61045 
61100 



61130 

61150 
61160 
61400 



61430 



62000 
62010 

62020 
62030 

62050 
62070 



62080 
62090 



62100 
62110 

62120 



Q-P 

GOTO 61100 
IF P$="EX255" LET P=255 

Q=P 

GOTO 61100 
BEEP 3 

GOTO "F 
PAUSE P$ 

ON ERROR GOTO 61160 

USING 

D=32763 

INPUT "FROM ";A 

INPUT "TO ";B 

LPRINT TIME 

LPRINT A;B;P$ 
FOR I-A-D TO B-D 

J=PEEK (I + D) 

IF J=P OR J=Q NEXT I 
LPRINT I+D;J;" ";CHR$ J 

NEXT I 
LPRINT P$;T1ME 

END 
"Z" USING 

INPUT "POKE FROM ";A 

INPUT "TO ";B 

INPUT "VAL ";C 

LPRINT A;B;"POK" 

LPRINT "C-";C;TIME 
FOR I-A TO B 

POKE I,C 

NEXT I 

LPRINT "PKD";TIME 

BEEP 3 

END 
"D" INPUT "OK?Y/N";D$ 

IF D$<>"Y" END 
"SQR " CALL &D091 

DIM L$(91)*18 

USING 

S=2 

INPUT "SIZE? 



OR S>255 BEEP 4 
'SQR 



62130 



OR ( 1-255 )?";S 

IF S<1 

GOTO ' 
D$-"H" 

INPUT "HORIZ. OR VERTICAL? H/V?";D$ 

IF D$-"V" THEN 62070 
IF D$<>"H" BEEP 4 

GOTO 62030 
TEXT 

L-l 

M-0 

INPUT "NO. OF LINES? (91 MAX)";L 

IF L<1 OR L>91 BEEP 4 

GOTO 62070 
"X" C-l 

D-0 

INPUT "NO. 
WAIT 10 

PRINT M+l; 

BEEP 2 

INPUT "TYPE :";L$(M) 

M-M+l 

IF M>L-1 THEN 62110 
GOTO 62090 
IF D$="V" GRAPH 

ROTATE 1 
M-0 

POKE 31220, S 

FOR N-l TO L 

LPRINT L$(M) 

M-M+l 

NEXT N 

D-D+l 

IF C-D THEN 62140 
LPRINT " " 

GOTO 62110 



OF COPIES? ";C 
OF";L 



62140 CSIZE 2 

GRAPH 

ROTATE 

TEXT 

LPRINT 

ON ERROR GOTO 3 

RETURN 

62500 "C" INPUT "WHICH LINE NO.? ";E 
: IF E<1 OR E>L BEEP 3 
: GOTO "C 
62520 WAIT 

PRINT E;" is ";L$(E-1) 

INPUT "CHANGE TO ";L$(E-1) 

PRINT L$(E-1) 

END 
64000 "K" USING 

LPRINT "USED:" 

LPRINT "CS1ZE";S 

LPRINT "DIRECTION ";D$ 

LPRINT "# LINES";L 
64010 LPRINT "* COPIES";C 

LPRINT "COLOR"; PEEK 31219 

LPRINT "1st LINE ";L$(0) 

LPRINT "Nth LINE "; 
64015 ON ERROR GOTO 3 

LPRINT L$(M-1) 

LPRINT S;"F";F;G;H;K;LEN L$ ; "L" 

RETURN 
64700 "A" LPRINT TIME 

INPUT "ALARM HH.MMSS:";U 

PAUSE U 

LF 1 

CSIZE 3 

T-INT (TIME /100)*100+U 

LPRINT "ALARM @ ",T 
64820 IF TIME »T LPRINT T 

BEEP 5 

CSIZE 2 

GOTO "I 
64830 GOTO 64820 
64900 "N" LPRINT "1983";TIME 

65200 "I" PAUSE USING "#######.####"; "1983";TIME 
: GOTO "I 

65220 "S" TEXT 
CLEAR 

DIM L$(2)*13 
CSIZE 2 
COLOR 
T-DEG TIME 
LPRINT TIME 
CSIZE 3 
LPRINT "" 
LPRINT "A DEMONSTRA-TION OF 

65221 L$(0)-"SIZES" 
S-14 
D$-"V" 
L-2 
C=l 
F— 22 
G=0 
H=9 
K-23 
GOSUB "V 

65222 LPRINT "FOR THE PC-2." 

: LPRINT "THE PRINTER MANUAL ADMITS(PAGE 63) TO 
ONLY 9 SIZES 

65223 CSIZE 1 
LPRINT "CSIZE 1" 
LF 1 
CSIZE 2 

LPRINT TAB 8; "TO" 
LF 3 
CSIZE 9 
LPRINT "NINE" 
CSIZE 2 
LF -2 
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65224 LPRINT "BUT BY POKEing A BIT ONE REALLY 

CAN PRINT UP TO SIZE 255 AND SOME "; 
65226 LPRINT "OTHER QUIRKS. 
65230 COLOR 3 

LPRINT " 9 SIZES AND", "CHAR/ LINE g SIZE' 

COLOR 

LPRINT 

LPRINT "CSIZE C/L" 

CS1ZE 1 

65232 LPRINT "1 34567891"; 

65233 LPRINT TAB 26; "7893123 36" 
CSIZE 2 
LPRINT 
LPRINT "2 3456789112345 18 

65234 LPRINT 
CSIZE 3 

LPRINT "3 3456789 12" 
CSIZE 4 
LPRINT "4 3456789 

65235 CSIZE 5 
LPRINT "5 34567" 
CSIZE 6 

LPRINT "6 3456" 
CSIZE 7 
LPRINT "7 345 

65236 CSIZE 8 
LPRINT "8234" 
CSIZE 9 
LPRINT "9234" 
CSIZE 2 
LF -3 
LPRINT "SIZES 10-12", "3 CHAR/LINE 

65241 LF 3 

Y-31220 

POKE Y, 10 

LPRINT "103" 

CSIZE 2 

LF 2 

POKE Y,12 

LPRINT "123" 

CSIZE 2 

LF -3 
65243 LPRINT "SIZES 13-18", "2 CHAR/LINE" 

LF 4 

POKE Y,13 

LPRINT "13" 

CSIZE 2 

POKE Y, 18 

65245 LPRINT "18" 
CSIZE 2 
LF -6 
LPRINT "SIZES 19-55", "1 CHAR/LINE; ABOVE 

65246 LPRINT "55 MAY BE MISSHAPEN." 
LF 6 

POKE Y, 19 
LPRINT "1955" 
POKE Y,39 

65247 LPRINT "39" 
LF 4 

POKE Y,55 
LPRINT "55" 
LF 3 
CSIZE 2 

65250 LPRINT "AND NOW SIZE 55 9" 
LF 11 
POKE Y.55 
LPRINT "@" 
CSIZE 28 
LF -3 

65251 LPRINT "AND EVEN SIZE 255 FOR A PERIOD." 
POKE Y.255 
LPRINT "." 
CSIZE 2 
LF -18 

65252 LPRINT TAB 9;"." 
: LF -1 



65253 LPRINT 
LF 7 



OUCH ! 



LPRINT "LOOK WHAT THEY'VE DONE TO MY *' 
LPRINT " * ASTERISK * 

65254 LF 2 
CSIZE 6 
LPRINT " *" 
LF -1 

65255 L$(0 )-"**********" 
L$(1)-L$(0) 
S-43 
D$-"V" 
L-2 
C-3 
FOR 1-0 TO 3 

65256 D-0 
COLOR I 
GOSU8 62110 
NEXT I 

65259 LF 9 
GOSUB "K" 
COLOR 
LPRINT 
LPRINT "YOU TRY 55 TO 255. USE MY 

SCRIP PROGRAM. 

65260 "/" LPRINT "MARION F. BROWN", "PO BOX ONE' 
: LPRINT "MARLOW.NH'V'ZIP 03456.0001 

65262 LPRINT "TEL 603 446-3414" 
: IF X-7 END 

65264 GOSUB 7 
LPRINT 

LPRINT "THANX NORLIN, MS." 
USING 
RETURN 

65265 "L" X-7 

: GOTO "/ 
65270 "H" CLEAR 

USING 

A-14533 

LPRINT TIME 

Y-(PEEK (A+2))+3 

LPRINT A;Y;Y 
65 271 "$" FOR I-A TO STATUS 2-3 

IF PEEK 1-13 AND PEEK (I-3)<>13 LET B-I 

X-PEEK (I+3)+3 

Y-Y+X 

LPRINT B;X;Y 
65272 NEXT I 

: LPRINT TIME 
: END 

65277 " " USING 

: LPRINT TIME ," LOC. LINE NO. 

65278 FOR 1-14533 TO STATUS 2 

: IF PEEK 1-13 AND PEEK (1+4)- 34 LPRINT 
CHR$ PEEK (I+5);I;PEEK (I+1);PEEK (1+2) 

65279 NEXT I 

: LPRINT I;TIME 
: END 



LINE ANNOTATION 

1 AUTO TIME 

2 +2BIOSBR 

3 E 3 ERROR 

4 O iF2 GLOBAL 

5 P iF1 STATUS 

6 #6 FREE BYTES 

7 T 7 ELAPSED TIME 

8 W 8 AVE. TIME BANNERS 

9 U 9 MONTHS 
10 Y 10 COLORS 
14 = PGM. NAME 
20 M MENU 
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LINE 


ANNOTATION 


20 


"A" CLEAR 

: PAUSE "***MATH TEACHER***" 




97 


R. LINES 97-99 IDENTIFY 
REV. NO. OF PC-2 


30 


INPUT "ENTER NUMBER (1-10) ";N 
: PAUSE "SELECT ONE OF" 




3000 


% iiF1 PRINT A-Z 


33 


PAUSE "THE FOLLOWING" 




3100 


3 iiF2 LOAD A-Z 




: PAUSE "ADDITION (A)" 
: PAUSE "SUBTRATION (S)" 




3200 


? 3200 PRINT ASCII NUMBER 


35 


PAUSE "MULTIPLICATION (M)" 




4000 


@ 4000 BANNER MISC. 




: PAUSE "DIVISION (D)" 




4400 


B BANNERS M/T 




: INPUT "A/S/M/D? ";L$ 




4500 


Q 4500 BANNER TRS 


37 


PAUSE ENTER LARGEST DESIRED" 
: INPUT "VARIABLE VALUE ";E 




4650 


DATA 


40 


IF L$-"A" THEN 100 




5000 


V SHADOW PRINT 


50 


IF L$-"S" THEN 130 




6005 


J CALENDAR 


60 


IF L$-"M" THEN 160 




6022 
6400 


DATA 

6400 VALIDITY TRAP 


70 
80 


GOSUB 500 
0-A*B 
: D-B 




8000 


G LOAD L$(0-91) 


90 


H-H+l 




8100 


(Pi Sign) iiF3 PRINT L$(0-91) 




: PRINT 0;" / ";A;"-(?)" 




9110 


* iiiF1 9110BIORHYTHM 




: GOTO 190 




61000 


FPEEK 


100 
110 


GOSUB 500 
D-A+B 




61400 


Z POKE 


120 


H-H+l 




62000 


D SCRIP Y/N? 




: PRINT A;" ♦ ";B;"-(?) M 




62010 


J 62010 SCRIP 




: GOTO 190 




62080 
62500 


X EXTRA COPIES 

C (EDIT) CHANGE SCRIP 


130 
140 


GOSUB 500 
O-A+B 
: D-B 




64000 


K USED IN SCRIP, BANNERS & SHADOW PRINT 


150 


H-H+l 




64015 


"RECIPE" 64015 




: PRINT O;" - ";A;"-(?)" 




64700 


A ALARM 




: GOTO 190 




64900 


N PRINT TIME 


160 
170 


GOSUB 500 
D-A*B 




65200 


iF4 time LCD 


180 


H-H+l 




65220 


S SIZES 




: PRINT A;" X ";B;"-(?) M 




65260 


/ 65260 LABEL MFB 


190 


INPUT C 




65265 


L LABEL MFB 


200 


: IF COD THEN 230 

BEEP 1 

: PAUSE "YOU GOT IT!" 




65270 


H CHAR. PER LINE 




65271 


$ iiiF2 65271 C/COUNT 
A = (n . . . n) 




: I-I+l 
: T-T+l 






Y = PREV CUMU 


210 


IF T-7 THEN 280 




65277 


SPACE DEFINED LABELS, GOTOs & GOSUBs 

J* 


220 
230 


PAUSE "TRY THIS ONE. . ." 
: GOTO 40 

PAUSE "***WRONG***" 
: PAUSE "THINK HARD" 
: PAUSE "TRY AGAIN" 




Math Teacher 


240 
250 


IF L$-"A" THEN 120 
IF L$-"S" THEN 150 








260 


IF L$-"M" THEN 180 




Jack Gorman 


270 


GOTO 90 




14 Eastlawn Drive 


280 


PAUSE "THIS IS FUN!" 




Hampton, 


VA 23664 


290 


: INPUT "WANT TO CONTINUE? Y/N ' 
IF V$-"Y"TO-0 


;v$ 


When I purchased my TRS-80 pocket computer, I tried to 


300 


: GOTO 40 
U-I/H*100 




find a way that it could serve everyone in the family. My sons 




: USING "#####" 




were learning elementary math, so I wrote a program to 




: PRINT "YOUR GRADE IS";U;" Z" 




sharpen 


their math skills. 


310 
500 


END 
A-0 




The 


program will ask for a number between 1 and 10 to 




: B-0 




initialize 


the random number generator subroutine. Next, 


510 


X-199017 




choose which math function you desire to practice: addition, 




: Y-1E4 




subtraction, multiplication or division. Lastly, input the largest 
variable value that you can competently handle. There will be 


520 


: N-((24298*N)*99991)/X 

: Z-N-INT N 

N-Z*X 




a 6-7 second pause as the computer runs its subroutine and 




Z-INT(N/X*Y)/Y 




formulates a problem for you to solve. To input your answer 




R-INT(Z*E*1) 




press fE~N T E^. the digits of the answer and (enter) 


530 

540 


IF A-0 THEN 550 




again. After each 7 correct responses you are asked if you 


: RETURN 




desire to continue. A negative response will result in your 


550 


A-R 




percentage grade for the exercise. 




: GOTO 510 


A 
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Roots of General 
Equations 

Ron Beshears 

615 Old Hackett Road 

Greenwood, AR 72936 

Here is a program capable of solving any general equa- 
tion of the form y = f(x). 

This program was introduced to me by Dr. Donald 0. 
Pederson, Chairman of the Physics Department of the Uni- 
versity of Arkansas at Fayetteviile. I have adapted it in work- 
ing form for use on the Pocket Computer (PC 1 ). It should run 
on any TRS-80 system with little or no modification. 

Many functions are of such complexity that mere algebra 
is not sufficient to yield numerical solutions to them. This 
program employs a numerical method which yields roots 
with a reasonable degree of accuracy. 

The program's method is to make an educated guess at 
the roots value, a value of x which makes y equal to zero and 
as such is symbolized on a graph of the function as a crossing 
of the x-axis. The program starts with a value of x supplied by 
the user and increments it by a value, also provided by the 
user, until the sign of y changes. At this value of x it is evident 
that an axis crossing has occurred, between the current value 
of x and the previous value. The program uses this zero 
crossing as its next guess and continues until the root has 
been determined to within the desired degree of accuracy. 

I will now briefly describe the workings of the program. 

The operator is reminded at lines 2 and 3 to enter the 
function on lines 10, 30, and 120 in terms of the specified 
variables (i.e., at line 10, Y = F(X), at line 30, F = F(B), and at 
line 120, G = F(C)). Once this has been done, the user can 
return to RUN mode and type RUN "DONE" and ENTER and 
execution moves on. The program then asks the user to 
supply an initial value of X. an increment value, and an 
acceptable error at line 7. At line 10 the function is evaluated 
for the initial X to see if a root has been immediately found. If 
not, X is incremented and the function is re-evaluated for this 
new value (B) at line 30. If a root has not been found, at line 50 
a check is made to see if the axis has been crossed (if so, Y 
and F would have different signs and would therefore have a 
negative product). Line 80 reverses the direction of search if 
I = 1 (this occurs only on the first interaction) and if F is farther 

from the axis than was Y 

If the axis has not been crossed, X is incremented repeat- 
edly until crossing occurs, and when this happens there must 
be a root in the interval between the current value of X and the 
previous value, assuming the function is continuous in that 
region. Once axis-crossing is established, the location of the 
root must be found to within plus or minus E. 

The method used assumes a linear variation between X 
and B and estimates the value of the root (C) based on this. It 
uses this value to generate new values of X and B so that the 
corresponding values of Y and F are on opposite sides of the 
axis. Line 1 20 is derived from the formula for a point where the 
line between X and B crosses the axis. 

Line 1 70 assigns C as the new X value if G is on the same 
side of the axis as Y; line 180 assigns C as the new value of B if 
G and Y are on opposite sides of the axis. 

The program is most efficient if the user has some knowl- 
edge of the graph of the function being evaluated, so that he 



can supply a starting value of the X and an increment which 
requires the shortest possible execution time. However, the 
program can be used to search for roots. For example, if the 
user knows that the root of some function is somewhere 
between -50 and zero, he may enter an initial X of -50 and an 
increment of 1 or two. The user should be advised that this 
application may be relatively time-consuming (execution 
times in excess of three minutes are possible in extreme 
cases). 

General usage notes: 

- A sufficient value for acceptable error is 1 x 10-6. 

- If f( x ) contains any trigonometric operators, it is imper- 
ative that the computer is placed in the RAD mode before 
execution begins. Otherwise, the program will yield incorrect 
answers. 

- As the program runs, it will pause the incremented 
values of x as it determines the value of y. Once the x values 
are no longer briefly displayed, the program has found the 
general location of the root and will shortly provide the 
answer. 

- The program uses roughly 530 steps of program mem- 
ory once the function has been entered at lines 10, 30, and 
120. 



i 

2 
3 
4 
5 
6 
7 

10 



20 
30 



40 
50 
60 
70 
80 
90 
100 



110 

120 

130 

140 

150 

160 
170 



PAUSE "ROOTS OF EQUATIONS" 

PAUSE "ENTER FUNCTION ON LINES" 

PRINT "10, 30, AND 120." 

"DONE" PRINT "ENTER INIT. X, INCREMENT" 

PRINT "AND ACCEPTABLE ERROR." 

CLEAR 



";X, "INCREMENT 



501 
510 



INPUT "X(D 

: ";E 

Y-F(X) 

: 1=1 

: Q-X 

IF Y-0 GOTO 500 

B=X*N 

: F-F(B) 

: Q-B 

IF F-0 GOTO 500 

IF Y*F<0 GOTO 110 

IF IOI GOTO 100 

IF ABS(F)<-ABS(Y) GOTO 90 

N- -N 

1-2 

X-B 

: PAUSE X 

: Y-F 

: GOTO 30 

Q-X 

: IF ABS(X-B)<E GOTO 500 

C-X-Y*(B-X)/(F-Y) 

: G-F(C) 

Q-X 

: IF C-X GOTO 500 

Q-B 

: IF C«B GOTO 500 

Q-C 

: IF G=0 GOTO 500 

IF Y*G<0 GOTO 180 

X-C 
: Y-G 

: GOTO 110 

B-C 

: F-G 

: GOTO 110 

BEEP 1 

: PRINT "ROOT 

GOTO 6 

END 



N, "ACC. ERROR 



";Q 
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Color Computer 



OS9 Assembly Language 



Programming 



by Earl Bollinger 



Developing computer programs in assembly language 
for use with the OS9 disk operating system requires different 
styles and techniques from that used normally with the 
TRS-80 Color Computer. The very nature of OS9 requires one 
to utilize more advanced programming concepts. Programs 
or subroutines for OS9 must be written in Position Indepen- 
dent Code. Also if the program or subroutine is expected to 
be used in a multiuser environment then it must also be 
coded so as to be reentrant. 

Position Independent or Relocatable programs are sim- 
ply programs, that, after they are assembled, can be loaded 
anyplace in memory and still be executable without reassem- 
bling them. The reason that programs must be position- 
independent is that OS9 dynamically allocates memory for 
the program at run time. OS9 assigns programs or modules 
memory on a first come, first served basis. Thus one never 
knows where OS9 will actually put your program when it is 
time to execute it. Necessarily, this does not mean that you'll 
be writing your programs differently; it's just that you'll have 
some constraints that have to be followed. 

Writing programs to be position independent is relatively 
simple. One only has to avoid using any of the addressing 
modes that refer directly to a memory location. Instead of 
using a Jump to Subroutine (JSR), use Branch commands 
such as BSR or LBSR (Long Branch to Subroutine). Instead 
of JMP (unconditional Jump), use BRA or LBRA (Branch or 
Long Branch Always). Other more advanced techniques 
take advantage of the various indexed addressing modes, 
and the Program Counter Relative instructions that are availa- 
ble with the MC6809 microprocessor. 

Programs that are designed to be reentrant are used in a 
multiuser environment. This only means that all your tempo- 
rary data and variable storage areas must be located on the 
stack. Reason being, if you used the normal method of as- 
signing data to specific memory locations, then, if more than 
one user attempts to use your program at the same time, the 
data and variable areas will quickly become corrupted. OS9 
loads only one copy of a given program into memory at a 
time. It then lets all the users, who want to, share that pro- 
gram. The way it does this is by allocating to each user their 
own stack space in memory. 

The OS9 Interactive Assembler is designed to aid you in 
developing programs for the OS9 system. The assembler 
uses a sort of free format source listing, outputs a formatted 
source listing and an object file from that original source 
program that it read. The actual source listing that the assem- 
bler reads is not formatted or pretty printed. 

Consider the following source code segment: 



AN EXAMPLE SOURCE CODE PROGRAM SEGMENT 



• 

DATA1 RMB 2 
DATA2 RMB 2 
DATA3 RMB 2 
DATA4 RMB 2 



LENGTH OF DATA LINE 
LENGTH OF FIELD ONE 
LENGTH OF FIELD TWO 
LENGTH OF FIELD THREE 
STKEND RMB 200 HARDWARE DATA STACK AREA 
STACK EQU -1 

ENTRY BSR INIT INITIALIZE PROGRAM 
LBSR GETDAT GET DATA 
LBSR PRODAT PROCESS DATA 
LBNE ERROR IF ERROR ABORT 
LOOP1 LBSR GETDAT GET DATA 
LBSR PRODAT PROCESS DAT 
LBNE ERROR 
BCC QUIT IF DONE 
BRA LOOP1 CONTINUE UNTIL DONE 
QUIT OS9 FSEXIT QUIT AND RETURN TO SYSTEM 

The source program segment above is what the assem- 
bler expects to read. A character in the first line column of any 
line is considered a label, unless it is an asterisk; then it is a 
comment line. A space and then a character on any line is 
considered a machine language mnemonic operations code 
(opcode). After an opcode, you can enter another space and 
an operand for the opcode. Another space after the operand 
and you can have a comment, if desired. 

Thus the fields that the assembler would normally use 
are: 

r*~") Comment line 

J_ABEL CSPACEJOPCODECSPASIjOPERAND- 

fSPACE ' Optional comment section 

rs p a c E": opcoDErs"p a c e ^operand 's pace 

Optional comment line 

( s p a~C~e~) OPCODE; ' space ^Optional comment line if 
there is no operand for the OPCODE (eg: RTS, NOP) 

The assembler expects you to separate all your various 
items with a space. The assembler will format the output 
source listing for you when you use it to assemble the pro- 
gram. Extra spaces and such will be included also in your 
output listing when the assembler processes your program. 
Actually, when you are using the OS9 Editor, the above 
source code lines are simply designed to make it easier to 
enter the program lines. 

Assembling your programs can be a little confusing. 
Thus I'll present some OS9 Assembler commands with op- 
tions and explanations of what it is doing. 
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0S9:ASM filename f E'N T E R : 

This command will simply cause the assembler to pro- 
cess your program. It will not generate an output listing or an 
output object (binary) file. Its main use is in test assemblies of 
programs, when you are simply looking for minor typos or 
problem areas and such. 

OS9:ASM src.program L fENTE R ; 

This command is essentially the same as the previous 
one, except that the 'L' option was invoked. This tells the 
assembler to generate a formatted output listing on the stan- 
dard output path (your video screen normally). 

OS9:ASM src.program L >/P > >/P (ENT e~ r n 

To redirect the formatted output listing to the printer, you 
can use the ' > ' output redirection modifier. If you want the 
errors also in the listing you must use the ' > > ' error redirec- 
tion modifier; otherwise, the errors found will be displayed on 
your video screen instead of the printer. 

OS9:ASM program L >/file > >/filei ENT ER ) 
This command causes the assembly listing to be output 
to a file on disk. Also the errors, if any, are embedded into the 
listing. You can use a /pathlist/filename if desired. 

OS9:ASM /d1/src_program CE N TER) 
You can also tell the assembler to read its source input 
from a disk other than drive 0. 

OS9:ASM src.program L Q( E N T E R 1 

This command tells the assembler to generate a format- 
ted output listing on the standard output path (video screen), 
and to. also, create a binary object file (executable program) 
using src.program' as its filename and put the object file in 
the current execution directory (if you haven't changed it, the 
current execution directory will be /DO/CMDS). If any errors 
are incurred during assembly, the binary object file will auto- 
matically be rendered unuseable. Normally, the assembler 
will simply write in the object file a message stating that errors 
have occurred. Thus any attempts at executing a program 
that had errors will fail. 

OS9:ASM /d3/prog L = /d2/test #16k >/P >>/ 

P : E N T E FT) 

In this example, the assembler is to read its input from an 
assembly source program located on drive 3, output its 
formatted program listing to the printer, and put the binary 
object file on drive 2 under the name of "test". The #16k 
command option tells the system that 1 6k bytes of memory is 
to be allocated to the assembler for this task. The assembler 
will use much of the 16k bytes for its symbol table storage 
area. If you leave out the #Nk option, the system will allocate 
4k bytes to the assembler anyway. The assembler can put 
about 270 symbolic references into the symbol table with 4k 
bytes allocated. For every 1 k bytes of extra memory alloca- 
ted, the assembler can add 93 additional symbol name en- 
tries to the symbol table. Every symbolic name entry in the 
assembler's symbol table requires 1 1 bytes of storage. 

Normally, one uses the #Nk memory allocation option for 
large assembly programs and when using the OS9 assembly 
DEFinitionS files. These definitions files are normally located 
under the /DO/DEFS directory. The most common and gener- 
ally used file being /D0/DEFS/OS9defs. If you list the OS9defs 
file, you notice that is contains a large set of predefined 
EQUate statements. These are provided in order to make the 



task of assembly language programming a little easier. But to 
take advantage of them will require using the #Nk option set 
to about #10k, as there are a lot of symbols in this file for the 
assembler to process. 

OS9:ASM #10k test L O S f E N T E R ) 

This example causes the assembler to read and assem- 
ble a source program named 'test' . The assembler is also told 
to generate a formatted output listing onto the standard out- 
put path (video screen). The 'O' option also causes a binary 
object file to be generated and put into the current execution 
directory (normally /DO/CMDS). The 'S' option tells the as- 
sembler to dump the symbol table onto the standard output 
path. The program memory allocation option #1 Ok was in this 
case put on the command line right after 'ASM'. 

The assembler will allow you to have a considerable 
amount of leeway in entering commands and options. One 
does not necessarily have to enter everything in a rigid fixed 
manner. One has to enter the 'ASM' in order to invoke the 
assembler first. Then you would enter the /path list/sou rceji- 
lename next, so that the assembler knows which file to as- 
semble. Next, one can enter most any combination of options 
from the 'OPT' assembler commands. If you want, you can 
also redirect the outputs generated to a variety of places, 
such as another file, to the printer, or to the screen, etc.. 

Balloon Dart Toss 

Paul Riches 
1628 Le Gaye Dr. 
Cardiff, CA 92007 

Most games now days involve spaceships and lasers. 
So, I decided to make a unique game that is a little different. 

This game involves throwing a dart at a randomly placed 
and colored balloon. You will use the left and right arrow keys 
to move, and the spacebar to fire. You must also get under the 
balloon before it explodes by itself. This involves both quick- 
ness and accuracy. If you are fast enough, you can shoot 
twice. To win the game you must do this 10 times in a row. 

10 CLS 

20 REM 7/12/82 BY PAUL RICHES 

30 REM ***BALLOON*** 

40 PMODE 3, 1 

: PCLS 

: SCREEN 1, 
70 X-128 

80 FOR D-l TO 10 
90 PCLS 
100 A-RND(255) 
110 CIRCLE (A, 80), 25 
120 LINE (A, 105)-(A, 130), PSET 
130 B-RND(3) + 1 
140 PAINT(A, 81 ), B, 4 
150 FOR L-l TO 35 
160 B$="BM" + STR$(X) + 

H10" 
170 DRAW"C4;" + B$ 
180 A$«INK£YS 
190 IF A$-CHR$(9) THEN GOSUB 430 

: X-X + 10 
200 IF A$-CHR$(8) THEN GOSUB 430 

: X-X - 10 
210 IF A$<>" " THEN 340 
220 FOR N-191 TO 80 STEP -10 



170; G10; D10; R10; U10; 
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230 PLAY "T" + STR$(N) + 

10)) 
240 CIRCLE (X, N), 9 
250 NEXT N 

260 IF ABS(X - A) < 6 THEN 270 ELSE 340 
270 PCLS 
280 PMODE 4, 1 

: SCREEN 1 , 1 
290 FOR M-l TO 30 
300 PLAY "T255;G" 
310 CIRCLE (A, 80), M*2 
320 NEXT M 

: PMODE 3, 1 

: SCREEN 1, 
330 GOTO 360 
340 NEXT L 
350 GOTO 390 
360 NEXT E 
370 PRINT "YOU WON" 

380 PLAY "T10; D; F; E; A; C; F; B; C" 
390 REM END OF GAME 

400 PRINT "YOU POPPED" D "BALLOONS" 
410 PRINT "GAME OVER" 
420 END 

430 DRAW "CI;" ♦ B$ 
440 RETURN 



+ STR$( INT((N - 70) / 



Animation 



Andy Haff 
Poway, California 



Here is a relatively simple program that demonstrates 
the animation potential of Extended Color BASIC by revolv- 
ing a spacepod around a planet. The program starts by 
"getting" the image of the spacepod and placing it in a 
20x24 array. The background scenery is then set, prolong- 
ing the SCREEN 1 , 1 command until after the user has input 
the revolution speed (of which there are three choices.) The 
program then proceeds by entering into the sin-cos loop 
which calculates the circular path for the X and Y coordinates 
of the pod. 

Each time the new position of the pod is set, the last 
image is erased due to the overlapping of the new pod and 
the stored four pixel space surrounding it. The smooth motion 
is achieved by "putting" the stored image without having to 
draw it over and over again. Feel free to experiment with the 
program by changing the image of the pod or by adding 
sound. 

10 ' REVOLVING SPACEPOD 
20 ' ANDY HAFF 
30 PMODE 4, 1 

: PCLEAR 4 
40 A- 128 

: B-92 

: R-70 

: PI-3. 1415927 
50 DIM S(20,24) 

60 DRAW "BM8.4 G4 D8 R4 G4 R12 H4 R4 U8 H4 L4" 
70 GET (0,0)-(20,24), S, G 
80 PCLS 
90 CIRCLE (A, B), 24, 5 

: PAINT (A, B), 5, 5 
100 CIRCLE (A, B), 34, , .35 
110 CIRCLE (A, B), 31, , .36 
120 CIRCLE (A, B), 39, , .35 
130 FOR X-l TO 8 

: READ XI, Yl 



140 CIRCLE (XI, Yl), 2 

150 NEXT X 

160 INPUT "INPUT REVOLUTION SPEED (1-3)"; SS 

170 SCREEN 1, 1 

180 FOR Z-l TO 360 STEP SS 

: C-Z 
190 C-C * PI / 180 
200 X-1NT( A - 4 + R * COS( C)) 

: Y-INT( B - 4 + R * SIN( C)) 
210 PUT (X, Y)-(X+20, Y+24), S, PSET 
220 NEXT Z 

: GOTO 180 
230 DATA 232, 12, 76, 20, 20, 132, 8.34, 236, 100, 

24, 180, 240, 122, 180, 100 J3 



Extended BASIC 
Graphics Reverse 



Scott Gunn 

16 West wood Drive 

Fort Madison, Iowa 52627 



This program places a machine language routine into 
memory starting at the address defined in line 10. The ML 
routine "instantly" reverses the colors on the first four pages 
of graphics memory. In four color modes it will change red to 
green and blue to yellow, and vice-versa. Before typing this 
program in, 16K users will have to type CLEAR 1, &H3EFF, 
while 32K users will have to type CLEAR 1 , &H7EFF. Here is 
the program: 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 



X-&H7F00 
Y-X + 16 
DATA 134, 
DATA 132, 
DATA 140, 



255, 142, 6, 0, 160 

167, 128, 134, 255 

30, 0, 38, 245, 57, 2023 



FOR A-X TO Y 
READ D 

T-T + D 
POKE A, D 
I NEXT A 
l READ D 

: IF TOD THEN PRINT 
END 



'DATA ERROR — CHECK DATA! 



16K users will have to change line 10 to read: 

10 X-&H3F00 

The following program demonstrates the first program's 
ML routine. This subroutine (or any other) can only be used 
after the routine has been POKEd into memory. 

1000 PMODE 4, 1 

: PCLS 

: SCREEN 1, 1 'SETS UP SCREEN 
1010 FOR X-0 TO 95 STEP 5 'PUTS CIRCLES ON SCREEN 
1020 CIRCLE (128, 96), X 
1030 NEXT X 

1040 FOR X-l TO 96 STEP 10 'MAKES BULLSEYE PATTERN 
1050 PAINT (128, 96+X), 1, 1 
1060 NEXT X 

1070 EXEC &H7F00 '16K USERS CHANGE TO &H3F00 
1080 A$-INKEY$ 

: IF A$-"" THEN 1080 
1090 GOTO 1070 

To use the ML routine, type (or use in a program line) 
"EXEC &H7F00" or "EXEC &H3F00", depending on 
whether you use a 32K or 16K computer respectively, J3 
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Directory to Printer 



Alexander Benenson 
585 West End Avenue 
New York, NY 10024 



Here is a short BASIC program that many Color Com- 
puter disk users will find useful— it does a directory to the 
printer. The directory will appear exactly as it does when the 
DIR statement is used. Below is the program for placing the 
routine into high RAM. Change the numbers in 10 and 20 to 
&H7FF7 and &H7FF8 if you have 32K. 



10 


CLEAR 200, 


&H3FF7 


20 


T=&H3FF8 






30 


FOR M-0 TO 


7 




40 


READ X 






50 


POKE T + M 


X 




60 


NEXT 






70 


DATA 134, 254, 


15 


The following 


line 


W! 


within 


a BASIC program: 



, 111, 189, 203, 207, 57 

perform the actual printing from 



80 EXEC T 

Use EXEC T if you want a printed directory from the 
command level. Remember that other programs and state- 
ments could change or erase the value of T; in these cases, 
use EXEC &H3FF8 (or EXEC &H7FF8 if you have a 32K 
system.) 

If you have a multi-drive system, it will be necessary to 
use the DRIVE statement first to get directories from drives 
other than zero. ^ 



SAVESND 



Jerry Miller 

6 Lavender Road 

Rocky Point, NY 11778 



The following program, which requires a 16K Extended 
BASIC Color Computer, isn't meant to serve any useful pur- 
pose in its present state, other than being instructional and 
possibly entertaining. Interested users may find it helpful as a 
template for something fancier. (Creativity and a knowledge 
of machine language are essential.) 

I had the idea for this program shortly after I discovered 
that MOTOR ON: AUDIO ON causes toggling of bit of 
$FF20 and bit 1 of $FF22 ($FF20 is more sensitive.) However, 
I was unsuccessful until I stumbled across the fact that going 
from A/D to D/A necessitates some sort of reinitialization. This 
is inelegantly accomplished here through SOUND 255, 1. 

The machine language program has two entry points- 
one stores data for the time-delay between toggles; the other 
reads back the stored data and translates it back into sound. 
Because both routines execute for the same number of clock 
cycles within their respective loops, the frequencies pro- 
duced are the same as those that were input. 

The program simply enters a "DO WHILE" type of loop 
(exit by holding down any key until the playback ends and the 
program returns to BASIC) which turns on the recorder for a 



few seconds, transfers the sound from tape to memory, shuts 
the recorder off, and then produces a noisy, distorted version 
of the sound. The noise can be reduced somewhat by adjust- 
ing the recorder volume. Usually, however, the sounds 
played back are easily recognizable, despite the noise. 

The storage is very expensive— 1 2.5K for a few seconds 
of sound— there is no way to improve significantly on this, 
but, at least for a fun program, who cares?! The text-screen 
and all 8 pages of graphics memory are used for data stor- 
age, so you will see a screenful of "garbage" while the 
program is running. I eventually plan to recover the stored 
data and analyze it— I admit that my idea is far-fetched, but 
maybe I can even find patterns in certain sounds that will 
enable me to design an algorithm (or at least a much more 
memory-efficient program) to mimic them. 

Type PCLEAR 8: RUN (ENTER :— otherwise the stor- 
age of data will abort the initial run with ?SN ERROR IN LINE 
. (Or see "PCLEAR" in the June 1982 issue.) 



10 PCLEAR I 
20 CLEAR If 
30 DATA 86 , 
40 DATA A4, 
50 DATA A4 f 
60 DATA 2 1 , 
70 DATA CE, 
80 DATA B7, 



16300 
2, 10, 8E, 3F, FF, CE , 4, 0, A7 
8E, 0, 0, 30, 3, B6, FF, 20, Al 
26, 4, A7, A4, 20, F3, AF , Cl, 10 
0, 0, 11, 83, 36, 0, 26, E2, 39 
4, 0, AE, Cl, B6, FF, 20, 88, FC 
FF, 20, 30, IF, 26, FC , 11, 83, 36 
90 DATA 0, 26, EC, 39 
95 IF INK£Y$<> ,m THEN 95 
100 FOR I - 16301 TO 16364 
READ B$ 

POKE I, VAL( "$H"+B$ ) 
NEXT 
110 MOTOR ON 

AUDIO ON 
EXEC 16301 
MOTOR OFF 
SOUND 255, 1 
POKE 65315, 63 
EXEC 16341 
AUDIO OFF 
120 IF INKEY$ - "" THEN 110 



ASSEMBLY LANGUAGE PROGRAM 



B2 



B3 



B4 



B5 



B6 



LDA 

LDY 

LDU 

STA 

LDX 

LEAX 

LDA 

CMPA 

BNE 

STA 

BRA 

STX 

LBRN 

CMPU 

BNE 

RTS 

LDU 

LDX 

LDA 

E0RA 

STA 

LEAX 

BNE 

CMPU 

BNE 

RTS 



#2 

#16383 

#1024 

,Y 

#0 

3.X 

65312 

,Y 

B3 

,Y 

B2 

,U++ 

B4 

#13824 

Bl 

#1024 

,U++ 

65312 

#252 

65312 

-1,X 

B6 

#13824 

B5 
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Reverse Characters 

Howard Drake 
P.O. Box 375 
Canyon, TX 79015 

The following short program shows how to reverse nor- 
mal Color Computer screen printing by PEEKing into the 
video and replacing upper case with "lower case" letters. 
The effect is almost as interesting as the use of the PEEK 
function in games and possibly printing from the screen. 

POKEing memory location 65314 with the number 8 
changes the screen to orange and black rather than green 
and black. POKEing a 7 into the same location changes the 
screen back to green and black. 

Lines 1 045 and 1 060 in the program are used as timers 
to slow the flash rate. 

Just type in the program, press the (clear) key, LIST 
the program and RUN it. 

999 REM REVERSE CHARACTERS 

1000 FOR ZZ-1024 TO 1535 
1010 Z-PEEK(ZZ) 

1020 IF Z>64 THEN POKE ZZ, Z-64 

1030 NEXT ZZ 

1035 REM FLASH ORANGE AND GREEN 

1040 POKE 65314, 7 

1045 SOUND RND(200), 1 

1050 POKE 65314, 8 

1060 SOUND RNDO00), 1 

1070 GOTO 1040 -£l 



overcome this and still accomplish page formatting, try the 
following: 



10 CLS 

20 B$-"SEE?" 

30 A$»"IT WORKS QUITE" + CHR$(13) + 

40 PRINT USING A$ ; B$ 



'WELL-X V 



The CHR$(13) in line 30 causes a carriage return (and 
line feed) to be generated, performing exactly the function 
described in the February News. 

Lastly, I use a Line Printer VII, which has only a manual 
paper advance. I don't really care for manually advancing the 
paper, and after printing a report, I frequently wish to advance 
the paper to a point where it can be torn at the perforations. 

The following routine at the end of the printing routine 
accomplishes this nicely: 

9000 CLS 

: PRINT "PRESS <A> TO ADVANCE PAPER" 

: PRINT "PRESS < I> TO CONTINUE" 
9010 A«PEEK(339) 

: IF A>254 OR A<253 THEN 9010 
9020 IF A-254 THEN PRINT#-2, 

: GOTO 9010 

The printer will continue to advance the paper until the 
CA) key is released. 

Pressing CD will exit the subroutine and allow execution 
of the next program line. 

I hope these tips are useful to some other Color Com- 
puter owners. J3 



Hints and Tips 



Charles B Levinski 
10 South side Avenue 
South River, NJ 08882 



Below are several hints and tips which I have found 
useful for the Color Computer. I should point out that some of 
these hints are useable only with Extended Color BASIC. 

On page 20 of the February, 1 982 Microcomputer News 
there is an article on TAB and PRINTUSING. Most of these 
routines make use of the following statement: 

PRINT TAB(N) USING A$; A 

Unfortunately, this yields a syntax error when used on the 
Color Computer. What will work, however, is: 

PRINT TAB(N);: PRINT USING A$ ; A 

While not as simple as the former statement, it is equally 
effective. To use this statement with a printer, replace PRINT 
with PRINT #-2,. 

I was quite enthused with the suggestion in the same 
article to incorporate line feeds in the USING string. The 
recommended technique was to press the line feed (down 
arrow) key at the appropriate point in the string. 

Uh-Oh! For some reason, the down arrow will not store 
as part of the USING string, even though the down arrow 
does generate a decimal 10, or line feed. In order to 



Line Printer Width 



Tom Garcia 
Box 15186 
Tucson, AZ 85708 



Thanks for the "Line Printer Width Driver" program for 
the Color Computer as published in the April, 1982 issue of 
TRS-80 Microcomputer News. It fills a need for me in that I 
write programs for publication in various magazines and 
want the program listings to be just 32 characters per line, as 
in a screen listing. 

I just can't help trying to "improve" on other people's 
programs ... So, I made a few changes . . . Mostly, I put the 
program up near the top of my (32K) memory where I would 
always want it. I also have the program automatically delete 
itself after running. 

1 DATA 182, 001, 103, 167, 141, 000, 046, 190, 001, 

104, 175, 141, 000, 040, 134, 126, 183, 001, 
103, 048, 141, 000, 004, 191, 001, 104, 057, 052 

2 DATA 002, 150, 111, 129, 254, 038, 016, 150, 156, 



139, 001, 145, 155, 
013, 173, 159, 160, 

3 ST-32710 

4 FOR AD-ST TO ST + 55 

5 READ CO 

6 POKE AD, CO 

7 NEXT AD 

8 EXEC 32710 

9 CLEAR 200, 32709 

10 POKE 155, 33 

11 DEL 1 - 11 



037, 
002, 



008, 
053, 



015, 
002, 



156, 
018, 



134, 
018, 



018 
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St. Patrick's Day 

Tom Flook and Ken Jones 
11870 Heidelberg Ln., Lot 33 
Whitmore Lake, Ml 48189 



Here is a special treat for the Irish and for all those who 
"feel" Irish on St. Patrick's Day. 




170 X-14 

FOR Y-110 TO 130 STEP 20 

CIRCLE (X, Y), 15, 1 

PAINT (X, Y), 1 

NEXT 
180 CIRCLE (50, 120), 30, 1 

: PAINT (50, 120), 1 
190 FOR Y-l TO 5 

200 CIRCLE (30 ♦ Y, 146), 45, 1, 1, .75, .25 
210 NEXT Y 

220 MH$-"L16BR4U10R8D10BL2U4L4D4" 
230 DRAW "BM198, 92; C2; S8;" + MH$ 

: PAINT (176, 90), 1, 2 
240 RETURN 

250 REM*******MESSAGE******* 
260 DRAW "C2; S8; BM90, 20" 
270 AA$-"HAPPY" 
280 GOSUB 1200 
290 DRAW "C2; S8; BM15 , 50" 
300 AA$-"ST. PATRICKS DAY" 
310 GOSUB 1200 
320 RETURN 

330 REM*******MAN-DOWN******* 
340 MF$-"D6R3U6BR5D6R3U6BD6R1D1R2D1R2D1L9U3R1BL 

5R1D3L9U1R2U1R2U1" 
350 MP$-"G3R1D1R1D1R1D1R4U1R1U1R2D1R1D1R4U1R1U1R1U1R 

1H3" 
360 MB$-"L3U1R3U1R4D1R3D1L3D1L4" 
370 MS$-"U4F3G3BD2E4H4L3U2G3H3D2L3G4F4U2H3E3D4" 
380 M$-"D3F3R3E3U3BD2BL2HlBL2GlBD2BRlR2" 









400 


a«" DUOBLll 

S2$-"BL4" 
















410 


S3$-"BD2BR4" 








10 


' ST. PATRICKS DAY DEMO 




420 


S4$-"BD9BR4" 








20 






430 


DRAW "BM170, 


94; C2; S8 


" + MF$ 






30 


BY: TOM FLOOK AND KEN JONES 




440 


DRAW "BM170, 


94; C3; S8 


" ♦ MF$ 






40 


JAN 17, 1982 




450 


DRAW "BM169, 


94; C2; S8 


" ♦ MP$ 


+ Sl$ 


+ MF$ 


50 






460 


DRAW "BM169, 


94; C3; S8 


" + MP$ 


+ Sl$ 


♦ MF$ 


60 


FOR 16K EXTENDED BASIC COLOR 


COMPUTER 


470 


DRAW "BM176, 


98; C2; S8 


" ♦ MB$ 


+ S2$ 


+ MP$ ♦ Sl$ 


70 


SLS 






+ MF$ 










: PRINT £ 169, "-PRESS ANY 


KEY-" 


480 


DRAW "BM176, 


98; C3; S8;" + MB$ 


+ S2$ 


+ MP$ + Sl$ 




: PRINT $ 229, "FOR A HOLIDAY MESSAGE" 




+ MF$ 








75 


PRINT § 295, "FROM— FLOOK AND 


JONES" 


490 


DRAW "BM193, 


105; C2; S8;" ♦ MS$ 


+ S3$ 


+ MB$ + 


80 A$-INKEY$ 






S2$ + MP$ + 


Sl$ + MF$ 








: IF A$-"" GOTO 80 




500 


DRAW "BM193, 


105; C3; S8;" + MS$ 


+ S3$ 


+ MB$ ♦ 


90 


CLEAR 800 






S2$ ♦ MP$ ♦ 


Sl$ + MF$ 






100 


PMODE 3, 1 
: PCLS3 




510 


DRAW "BM172, 
+ MB$ + S2$ 


94; C2; S8;" + M$ + 

♦ MP$ + Sl$ ♦ MF$ 


S4$ ♦ 


MS$ + S3$ 




: SCREEN 1, 




520 


PAINT (176, 130), 0, 2 






110 


GOSUB 130 








PAINT (181 


, 88), 0, 2 










GOSUB 250 








PAINT (181 


, 120), 1, 2 










GOSUB 550 








PAINT (181 


, 115), 0, 2 










GOSUB 1000 




530 


FOR DLY-1 TO 


1000 










GOSUB 600 






: NEXT 












GOSUB 330 




540 


RETURN 












GOSUB 710 




550 


RE m*******E YE S ******* 










GOSUB 1070 




560 


Y-72 












GOSUB 650 








FOR X-50 TO 64 STEP 12 






120 


GOTO 10 








CIRCLE (X, 


Y), 9, 2 






130 


REM*******CLOVER******* 








PAINT (X, 


Y), 2 






140 


Y-148 








CIRCLE (X, 


Y), 2, 










FOR X-40 TO 60 STEP 20 








NEXT 












CIRCLE (X, Y), 15, 1 




570 


LINE (52, 60) 


-(46, 56), PSET 










PAINT (X, Y), 1 




580 


LINE (62, 60) 


-(74, 56), PSET 










NEXT 






: X-50 








150 


X-86 




590 


RETURN 












FOR Y-110 TO 130 STEP 20 




600 


REM*******EYES MOVE OVER******* 










CIRCLE (X, Y), 15, 1 




610 


CIRCLE (X, Y) 


, 2, 2 










PAINT (X, Y), 1 






: FOR Z-l TO 


5 










NEXT 




620 


CIRCLE (X ♦ Z 


, Y), 2, 






160 


Y-90 






: CIRCLE (X 


♦ Z ♦ 12, Y), 2, 










FOR X-40 TO 60 STEP 20 




630 


NEXT Z 












CIRCLE (X, Y), 15, 1 




640 


RETURN 












PAINT (X, Y), 1 




650 


REM*******EYES MOVE BACK******* 










■XT 




660 


FOR ZZ-5 TO 1 


STEP -1 
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670 CIRCLE (55-ZZ, Y), 2, 2 

: CIRCLE (69-ZZ, Y), 2, 2 

: NEXT ZZ 
680 FOR ZZ-1 TO 5 
690 CIRCLE (50, 72-ZZ), 2, 

: CIRCLE (62, 72-ZZ ) , 2, 
700 NEXT ZZ 

FOR D-l TO 1000 
NEXT D 
RETURN 

710 REM*******DANCE ******* 
720 FOR A-l TO 2 

730 RF$-"D6R3U6BD6R1D1R2D1R2D1L9U3R1" 
740 LF$- M D6R3U6BD6R1D3L9U1R2U1R2U1R2U1" 
750 RD$-"G4HlGlHlGlF4E6U2" 
760 LD$-"F4E1F1E1F1G4H6U2" 
770 DRAW "BM184, 138; C3; S8" ♦ RF$ 

: PLAY "V20T5O5L8C;" 
780 DRAW "BM186, 138; C2; S8;" + RD$ 

: PLAY "04AFF" 
790 DRAW "BM186, 138; C3; S8; " + RD$ 

: PLAY "CFF;" 

800 DRAW "BM184, 138; C2; S8;" ♦ RF$ 

: PLAY "AFA" 
810 DRAW "BM168, 138; C3; S8; " ♦ LF$ 

: PLAY "05C; 04BA" 
820 DRAW "BM170, 140; C2; S8;" 4 LD$ 

: PLAY "BGG" 
830 DRAW "BM170, 140; C3; S8; H ♦ LD$ 

: PLAY "EGG" 
840 DRAW "BM168, 138; C2; S8;" + LF$ 

: PLAY "BGB" 
850 DRAW "BM184, 138; C3; S8;" ♦ RF$ 

: PLAY "05DC; 04B;" 
860 DRAW "BM186, 138; C2; S8;" + RD$ 

: PLAY "AFF;" 
870 DRAW "BM186, 138; C3; S8;" + RD$ 

: PLAY "CFF;" 
880 DRAW "BM184, 138; C2; S8; " + RF$ 

: PLAY "AFA;" 
890 DRAW "BM168, 138; C3; S8;" ♦ LF$ 

: PLAY "05C; 04BA;" 
900 DRAW "BM170, 140; C2; S8;" + LD$ 

: PLAY "BAB;" 
910 DRAW "BM170, 140; C3; S8;" + LD$ 

: PLAY "G; 05C; 04B;" 
920 DRAW "BM168, 138; C2; S8;" ♦ LF$ 

: PLAY "AFF; L4FP1;" 
930 NEXT A 
940 RETURN 

950 REM******* IRISH JIG******* 
960 JI$-"V20T3O5L8C; 04AFF; CFF; AFA; 05C04BA; BGG; 

EGG ;BGB; 05 DC; 04B; AFF; CFF; AFA; 05C; 04BA; 

BAB; G; 05C ;04B; AFF; L4F; Pi;" 
970 PLAY JI$ 
980 GOTO 960 
990 RETURN 

1000 REM******* I'M LOOKING OVER******* 
1010 LO$-"V20T4; 04L2CL8GEDL2CL8DL2EG05l8C04L2BO5l8 

CL2D04L8DEL2F#A05DD" 

: LA$-"04L2BL8AGL2BL8AGL2AL8AAL2A05L2D04L8 

BA05L2D04L8BAL2GL8GGG" 
1020 LB$- "05L2DL8C04L8B05L8DL2C04L8AL2BBL8BL2AL8GL2A 

L8B05CL2D04L2GL205CL8CP4" 
1030 X$-LO$ + LA$ 
1040 X1$-L0$ ♦ LB$ 
1050 PLAY X$ 

: PLAY Xl$ 
1060 RETURN 

1070 REM******* INTO BAT******* 
1080 PAINT (176, 130), 3, 2 
PAINT (181, 88), 3, 2 
PAINT (181, 120), 3, 2 
PAINT (181, 115), 3, 2 



1090 DRAW "BM172, 94; C3; S8;" ♦ M$ ♦ S4$ ♦ MS$ + S3$ 

♦ MB$ ♦ S2$ + MPS ♦ Sl$ + MF$ 
1100 CIRCLE (173, 150), 5, 3 
1110 DRAW "BM193, 105; C2; S8" ♦ MS$ ♦ S3$ + MB$ + 

S2$ ♦ MP$ ♦ Sl$ ♦ MF$ 
1120 DRAW "BM193, 105; C3; S8;" + MS$ ♦ S3$ ♦ MB$ + 

S2$ ♦ MP$ ♦ Sl$ ♦ MF$ 
1130 DRAW "BM176, 98; C2; S8; " ♦ MB$ ♦ S2$ + MP$ + 

Sl$ ♦ MF$ 
1140 DRAW "BM176, 98; C3; S8;" + MB$ + S2$ ♦ MPS ♦ 

Sl$ ♦ MF$ 
1150 DRAW "BM169, 94; C2; S8;" ♦ MP$ ♦ Sl$ + MF$ 
1160 DRAW "BM169, 94; C3; S8;" + MP$ ♦ Sl$ ♦ MF$ 
1170 DRAW "BM170, 94; C2; S8;" ♦ MF$ 
1180 DRAW "BM170, 94; C3; S8;" + MF$ 
1190 RETURN 

1200 REM********LETTERING******* 
1210 FOR XX- 1 TO LEN(AA$) 
1220 RESTORE 

: LL-0 
1230 READ LL$, CC$ 
1240 IF LL$-MID$(AA$, XX, 1) THEN DRAW CC$ 

: GOTO 1260 
1250 LL-LL + 1 

: IF LL<13 THEN 1230 
1260 NEXT 

: RETURN 
1270 DATA " ", "BM +7, 0" 

1280 DATA "A", "U4; E2; F2; D2; NL4; D2; BM + 3, 0" 
1290 DATA "C", "BM ♦ 1, -0; Hi; U4; El; R2; Fl; BM ♦ 

0, + 4; Gl; L2; BM + 6, 0" 
1300 DATA "D", "U6; R3; Fl; D4; Gl; L3; BM + 7, 0" 
1310 DATA "H", "U3; NU3; R4; NU3; D3; BM + 3, 0" 
1320 DATA "I", "BM + 1, 0; Rl; NR1; U6; NLl; Rl ;BM ♦ 

4, + 6" 
1330 DATA "K", "U3; NU3; Rl; NE3; F3; BM + 3 , 0" 
1340 DATA "P", "U6j R3; Fl; Dl; Gl; L3; BM ♦ 7 , 3" 
1350 DATA "R", "U6; R3; Fl; Dl; Gl; L2; NLl; F3 ;BM + 

3, 0" 
1360 DATA "S", "BM + 0, -1; Fl; R2; El; Ul; Hi; L2 

;H1; Ul; El; R2 ; Fl; BM + 3 , + 5" 
1370 DATA "T", "BM ♦ 2, +0; U6; NL2; R2: BM + 3 , + 

6" 
1380 DATA "Y", "BM + 0, -6; D2; F2; ND2; E2; U2 ;BM + 

3, 6" 
1390 DATA ".", "BM + 2 , 0; Ul ; BM + 5 , + 1" J3 
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429 Computer Centers Nationwide 



Alabama 
BIRMINGHAM 7428 Greta Soring* Hwy 9?33 from Fasl 
HUNTSVtlLE "400 N Memorial Pvwy 
MOBILE 405 Be Air BM 
MONTGOMERY «M J-o- =wju«re St 



ARI20NA 
rTOENXX '0233 Metro Pkwy f 4301 S 7» Ave 
StOTTBOALE 2525 H Scottsdaie % 
TEMPEB3E Broadway 

TUCSON •■«?? F BroMrtr Co-nooei Plan 2830 N Campbel 
Ave 



ARKANSAS 

> 1 Country SVC Jnivarsly A Ashe 



CALIFORNIA 
ANAHflM 509 Ki'n-J 
BAKERSFIELD ?.'8 Chester Aw 
BERKELEY 977 Grove Si 
BEVERLY HILLS 8500 Wnshrre Blvd 
BREA ipe-ial Shoppv-g Center. 391 South State Cotege 
CANOGA PARI S3'- Toping! Canyon 
CARMICHAEl 6305 F»rD4tt BM 
CH4C0 1834 Mangrove Ave 
CBMA WSTA 1201 3rd Av* 
CITRUS HEIGHTS 7405 Green Bao in ii San Juan 
DOWNEY 803' Florence Ave 
El TOW Ei Toro FW a( San ttego Freeway 
ESCOMUM 347 W Mason Ave 
FREMONT -remo-t Hub 39' '4 Fremont 
FRESNO Princeton SVC. 272' N BtaCKStone An 
GARDEN GROW '2821 Knoll Si 
GLENOALE 236 h Bird 8M 
HAYWARO ?4*B4 Hesperian BM) 
MOUTWO00 BB22 Ho w.cod Blvd 
■WINE RtdM n Mm Si 
LAIFWOOO 5830 Lakewood Blvd 
IA ME SA 5346 Jackson Or 
IOW BEACH 2119 P**ower BM 

LOS AMELES 740 S Otoe Si 5240 Century Blvd Airport . 
M0OEST0 271 McMenry An 
MOMTOAM 5237 A/'O* Hwy 
MONTEREY 484 Witfimton St 
MOUNTAIN VIEW '933 El Ctmno Real YV 
OAKLAND ''33 Broadway 
PASADENA 5*5 S .ake Ave 
PLEASANT HHL 508 G Contra Costa Btvd 
RIVERSIDE 3844 La S«rra Aw 
SACRAMENTO 4749 J SI 
SAN BERNARDINO <"M Irand Center Or 
SAN DIEGO 3082 Ca-emont Or . 3902 El Caron Blvd 
SAN FRANCISCO One Mar**! Place. 2920 Geary Btvd 
SAN JOSE 1228 S Bascorn Ave 
UN MATEO 3-80 Campus Or 
SANTA AM 2320 S 'we. ST fat Warner) 
SANTA SAMARA 4:41 Stale Si fcl 
SANTA FE SPMMS -4138 East F..estone BM 
SANTA MONICA VI WCShre Blvd 
SANTA ROSA 823 UN St 
SHERMAN OAKS '4936 Ventura BM 
STOCKTON Conege So St 963 West Mara Lane 

TAR2ANA '8S4S ,'»itl l BM 
TOMANCE 384.. Seal nM 11 HSWMM e 
VENTUM4005F Man Si 
WOTCOVmA2S'6 1 .Vori-a.- Si 



COLORADO 

i Heights Shop Cf 
BOWLDER ■■ MtM I-;..-. 3590 A ■ • 
axORADO SPRN6S 434' N Academy 
DENVER 8000 E Ourncy. Green Briar Plan 7075 Pico* 
LAKEWOOD 2099 vVadswortti Blvd 



CONNECTICUT 

EAST HAVEN 51 Frontage Rd 
FAIRFIELD '196 ««igs Hwy & Ft) < 
HARTFORD The Richardson Bog 942 Mail St 
MANCHESTER 22B SplOCer Si 
NOPWALK R| 7 345 Main Aye 

! Edwards Foe* Warehouse Shop Ctr 538 Boston Pom 



IK Bat* SI 

i 122 BoMon Port Rd 
WOT HARTFORO 39 S Mar Si 



DOVER Edorr.1 Shop Ctr Rt #13 
— JMMrTjN 3847 Kirtwood Hwy 



DISTRICT OF COLUMBIA 
N W WASHINGTON 1800 M Si ' 5th 8 L St Van Mess Station 
4250 Cormecicut Ave 



FLORIDA 
ALTAMONTE SPRINGS 766 B Eta A.tamome L> 
t MTON 1862 \ Federal rtwy 
ATER 2460D US 19 Not* 
DA YTOM BEACH Vou-saP- a/a 
FT LAUDERDALE 436t N Federal Hwy 
FORT MYERS fdrson Mil 

FORT PIERCE Center Wast Skorjttnf Center u S rtwy I 
GAINESVILLE 3315 Archer Rd 

I 42» S State flo .7 
i S252 Artngton Exprwy Roosevelt Mai. Roosenl 

LAKELANO 2810 S Florida Ave 

LAUOEROALE LAKES 4317 25 N Slate Rd 7 

MERRITT ISLANO '00 E Mcrrfl Island Causeway 

MIAMI 9159 S Otoe Hwy . 1601 Bacayne Blvd 15 SE 2nd 

Ave . 20761 S On htwy 
N MIAMI IEACH Tr». Promenade 1777 N E 163rd St 
ORLANDO 1738 i Colon* Dr 

PENSACOLA castpitg Shoppy C«*t«. BBS N 9th Ave 
ST PETERSBURG 3451 Btth St N 
SARASOTA H 5- S Tamtm Tr (Hwy 41) 
TALLAHASSEE 2529 S Adtms 
TAMPA 4555 W Kenrvady. 1825 E Fowler An 
(V PALM IEACH »?;:-* Pa'm Beach Lain Blvd 



GCORGIA 
ATLANTA 2108 Henderson MAI 49 W Paces 'erry Alters Utl SA; 
2937 Cot* Ptflmty NW . 113 PetcMree St 
AMMCTA 3435 Wriohtsttoro Rd 
C0UE8EPAR* 5309 OK national xwy 
CM IUMNtJS Coxnbut Square MM. 3050 Macon Rd 
MMMUE 5697 BMord Hwy 
MACON 1467 Eaartower Pkwy 
l MnMNtAN ChMhatn Pita 7805 Abercom Si 



HAWAII 
HONOLULU Pacinc Trade CenirM-GrounO Floor 190 South Kkig St 



HtSE 661 S Captal BM 



L1MM 
AURORA 890 ti ortr Like St 

BLOOMINGTON 401 k Veterans Partway iFasttand Commons) 
CHICAGO 4355 S A'dier Ave CNA Plan 309 S Wabash 72 

West Adams 524 H MIcnKStn Ave 101 W WttNnrjton Si M 

GM 
OfERFIELOOeerbrooKttal 
ELMW000 PARK 7217 W SYano Av» 
FAIRVIEW HEIGHTS 'A Marlm PMct 
HOMEWOOOnSLENWOOD 329 CMtMread LtMMMj: 'SBfl I 

JOUn'?4-5W Jelersor A. 

leGRANGEOneS LaGrange FM. 

IIBERTYV1LLE 1350 S ViiNllM. 

LOMBARD 4 Vortiown Cr 'Mr 

MOUNE 440- 441h Ave 

NILES 8349 Gort Rd 

OAK LAWN 48<5W 95m St 

PEORIA 4' UK Sheridan Rd 

IVXKFORO Sorth Town S/TC. 3600 H Uatn Si 

SCHAUMBURG 65' Mil Dr 

SPRINGFIELD Smrwood Pla/a 2482 Wabash 

INDIANA 
EVANSVtLLE 431 Ota-orvJ Ave 
FT WAYNE 747 rtorthcresl S^ 
GRIFFTTH 208 W Ridge Rd 
H08ART Save-More Plan Rtts «6 4 5i 
INOIANAPOUS 8742 E 82nd Si Castelon Ptj Speedway Plan 

6129 B Crawtordsvie. '00'3 E Washrngton St . Two W 

WasMngtty Si 
SOUTH BENO 1877 South Bend Ave 
TERRE HAUTE 3460 U S Hwy 41 S 



WWA 
CFOAR RAPIDS ' ' I F^-st Ave . S E (Oownttrwnl 
DAVENPORT 616 E Kjn*erty Rd 
DF S MOINES M60 Mtuman Rd Sherwood Forest S/M 



OVERLAND PAM 86'9 W 95th 

TOPEKA White Laxes Plan West Tower 37'5 Plan Or 

WICHITA 7737 Blvd Plan S/C 

KENTUCKY 
FLORENCE 7727 Mat Rd 
LEXINGTON 2909 Rtfimond Rd 
LOUISVILLE lousvNe G«iena. 4 133 ShnbyvCe Rd 

LOUISIANA 
ALEXANDRIA 1213 Tents Ave 
BATON ROUGE ? 007 Fonda Btvd 
GRETNA 400 La Palco Blvd 
HO DMA 7348 W Part Ave |Hwy 24) 
LAFAYETTE u'mversrty Sgua'a at Congress BM 
MHAIRIE 3750 Veterans Hwy 
NEW ORLEANS 327 Si Charles Ave 
SMRFVEPORT 1545 Line Ave 



lANGOft Wane Square 

MARYLANO 

BALTIMORE 7942 Betav FU Putty m Ptaa. 1 15 N COarits St 

■.I I ,-< -n,r- 
BETHESDA 7900 V/rscons«i Ave 

CATDNSVIOE One U4e West S/t 6600 8 Ba« Man F-ki 
FREDERICK Shocws World. Rl 40W 
NEW CARROLLTON LANHAM 7949 AnnapctS Ft) 
PASADENA 612C Rtctvt Hwy 
ROCKVILLE Conrjnusonti Pan 1673 Rocrvie Pfce 
SALIS8URY Shoppe-s Wond SrC. Fft 50 
TEMPLE HILLS 4570 Sr Barnabas FW 
TOWSONLUTHERtTLLE Vo'ttown S/C Yon Rd at AdgKY Rd 

MASSACHUSETTS 
BOSTON 730 Co-imoirweallh Ave HI Summer St 37? Boylsion 
BOSTON 377 BoyWon 

BRAINTREE South Shore Plan 250 LVrte St 
BROCKTON 675 Belmont 
BURLINGTON C-oss-oads Plan. Rt 3 S 
CAMBRIDGE "arvard Square 28 Boyrstor- St 
CHESTNUT HILL 200 BoyWor Si 
FALL RIVER 90 WHMjr» S Carmrvj BM 
NATICK tOOWorcesler Rd 



ELB 1M» Um Si NorMgaM Ptf 
ESTER Lincoln Ptua 

MICHIGAN 
ANN ARBOR 2515 Jackson Rd 
BWMIN OI IAM 3620 W Maple Rd 
DEARBORN Westoorn Shop Ctr 23'61 Mtdwgan Ave 
OHROIT OWNTN '559 Woodward Ave 
FLINT G3798 MOktr Rd . VrjrVshre Plan 
GRAND RAPIDS 342 28th St SE 
KALAMAZOO 25 KaiamaMO Center 
LAMING 25i9 S Cedar St 
UVONIA 13470 W 7 Mte Rd 
PtAINHElO North Ktnt Mil 

PMNTMX Norm 0t> PMn-PooiMc MM 2438 Etnteih Lax Rd 
RO«VILU3't73GriliotAve 
SOUTHf IELB 17651 West 1? Mte Rd 
TROY 0«tnd Ptan 322 Jthn R Rd 
WARREN 29031 Van DyNe Ave 

MINNESOTA 
MOOMMNSTDN '0566 France Ave S 
FRIOLEY '974 76 UmversAy Ave North 
GOLDEN VALLEY Golden Valey S7C 8016 Olson Menxyrai Hwy 
MINNEAPOUS S30 Marquette Ave 
ST PAUL 6th 8 Wabasha 



MISSISSIPPI 
GUIFPORT 5'5A Crxlhouse Rd 
JACKSON 979 Els Ave 

MISSOURI 
OtS PERES ' I960 Manchester Rd 
FLORISSANT 4' 1 onssant Ones S/C 
INDEPENDENCE '325 S Moand Rd 
KANSAS CITY 4025 N Oa. Traitcwa, 
ST ANN '0472 St Charles Pott Rd 

ST LOUIS 500 No Broadway {Commerce Bam. Bug Downtown 
SPRINGFIELD 2684 S Oenstone 

NEBRASKA 
LINCOLN 4601 0' Si 
OMAHA 3006 Dodge St . 1318 72nd St at PaoK 

NEVADA 
LAS VEGAS Co-r-merotl Cerrec 953 E Sahara #31 8 
RENO 3328 KwtAe Lane 

NEW HAMPSHIRE 
MANCHESTER Ha-pshi-e Plan 1000 Elm St 
NASHUA 429 Arnhers! Si Rl 101A 
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BULK RATE 

U S POSTAGE 

PAID 

Radio Shack 
A Div of Tandy Corp 




NEW JERSEY 

BRIDGEWATER 1472 U S rtglvway 22 Easl 
E BRUNSWICK 595 A Rt 18 
E HANOVER Rl '0 Hanover Plan 
LAWRENCEVUIE Rl 1 8 Teas Ave 
NEWARK 595 Broad 
NORTHFIELO 327 74 T*on Rd 
PARAMUS '75 Fit '7S 
SPRINGFIELD Rl r22 Ctnier Isle 
TOMS RIVER 700 Rt 37 Was! 
VOORHEES 35 Eagle Ptata 



NEW YORK 
ALBANY Stoppers Pk WON Rd 



BETHPAGE 422 N Waniagh Ave 

BROOKLYN 531 B6th St 

BUFFALO 639 Naga<3 ^ate Btvd 

FRESH MEADOWS "87 1? Horace Mining E<o 

GARDEN CITY 960 FranUm Ave 

JOHNSON CITY Giant Shopprvj Center Harry L Qnve 

KINGSTON Kngs Mai. Rt 9W 

MANHASSET '550 toahem BArd 

MELVIUE r SS Mai. Rt 110 

NFWBURGH Zayre Plan Rt (17K 

NEW ROCHEUi 7" North Ave 

NEW YOM 385 fflh Ave 139 E 42nd Si 19 W 23'0 St 347 

Uadisor An 270 Part An South 1282 Brotdwty 9 

BH Nen 
NIAGARA FALLS Pne Plan B351 Niagara Fats Blvd 
REGO PARK 97 77 Queens Bh-d 
ROCHESTER 3000 Wntor RrJ 
SCAMOALE 366 Centra Part. Ave 
SCHENECTADY vV.-.jc a*- PUn 
SPRING VALLEY WMj House Center 88 W Pa 59 
STATEN ISLANO 2409 Richmond Ave 
SYRACUSE 2544 Er e BM Hotel Syrtcuse 510 S Wtrren St 
imCA Rve-srde Mai 
VALLEY STREAM Green Acres Shop Ctr 
YOIIKERS C'OSS Country Shop CW 

NORTH CAROLINA 
ASHEVULE « U?.r Shopping Center Tunnel Rd 
CHARLOTTE 3732 Independence BM Tyvrjtl Mil. 5401 South 

BM 
DURHAM >-uth Square MM 
FAYETTEWLLEEutaw Shocor^Cent,, 8l5ElmSt Fayetovtit 

Street MM 
GREENSBORO 3718 Ugh Po«1 r\1 
RALEIGH I ownndge So Hwy 70 W 
WILMINGTON Indiptndtnct Mai 
WINSTON SALEM 629 Peters Creek Pkwy 

OtNO 

AKRON Fan awn Plan. 2727 W Mart*! St 

BE0FOR0 HEIGHTS 5717 NorThlieW Rd 

CANTON 5248 Dressier Rd NW MeAet P'arj 3826 W 

TuicaYtwas 
CENTERVILLE 2026 Miamisbuig-Centerviln Rd 
CINCINNATI 9725 Montgomery. 16-18 Convention Way (on 

SnntSd 
CLEVELANO 4)9 Fuctd IDwntwnj 2756' EudrJ Ave 
COLUMBUS 862 S Hamilton Great Eastern SrC. The Palo Shop 

Ctr . 466' Karl Rd 400 N Hk* St 
DAYTON Northwest Plan 3279 West SebenthtNir 
ELYRIA 286 Midway Blvd 

FAIRFIELO 7255 One Hwy ('/. Mi North 01 1-275) 
NORTH OLMSTED Seal Northern S/C 
PARMA P5S1 W Riogewood O 
TOLEDO 5844 W Central Ave . Brownstone PMll. '724 S 

Reynolds Rd 
YOUNOSTOWN jmon Square Plan 7543 Belmont An 



OKLAHOMA 
OKLAHOMA CITY 473? SE 79th St Spmgdtie SVC. 4469 NW 

50th '10' SW 59th Si 
TULSA 7718 & 7770 F 4' si Si 



0I> I RON 
EUGENE 390 Coburg Rd 
PORTLANO 7463 SW Btrbur Bwl 9131 SE Powel 3rd and 

Washngton Sts lOcnvniown) 
SALEM Salem Plan 403 Center 



PENMYLVANIA 
ALLENTOWN Cresi Plan S.C Cedar Creit BM US 22 
8AU CYNWYO 67 ( dty Lre Ave 
EASTON 75th St Shoppevg Center 
ELKINS PAM Enons Part Soune 8080 &0 York Rd 
ERIE 5755 Petch St 

HARRISBURG Jnon Deposii Mall, unon Deposl Rd »17 
LANCASTER Part C«y Ptta US 30 
MONROEVULE 3828 Wm Perm Hwy 
MONTGOMERYVTLIE Airport Sq . Rl 309 
PHILADELPHIA 7542 Castor Ave . 1002 Chestnul Si '80' Mtrnet 
Si 10 Penn Ccnte' 



PITTSBUMfl 57 '5 Baptist Rd HAIs Plan 303 SmWihetd St ; 

4643 Baum BM 4768 McKnight Rd 
SCRANTON 206 Meadow An 
WILKES BARRE ?3 W Market St 
WYOMISSINO Btruhne MM West. H01 Woodland Rd 
YORK vort Count, Shopping Center 



RHODE ISLAND 
E PROVIDENCE 850 Waterman Ave 
PROVIDENCE 177 Unon SI 

SOUTH CAROLINA 
COLUMBIA Old Sears Bldg lOOl Harden Si 
GREENVILLE N Has SA) 
N CHARLESTON 5900 Rrvers An 



TENNESSEE 

CHATTANOOGA bX NcVrgale MM 

JOHNSON CITY Peerless Center 

KNOXVILLE Ceoai Bkitl S'C 9123 Eiecutrvi Pa-. Dr 

MEMPHIS 4665 Ame'can Way. '997 Union Ave 

NASHVILLE 2"5 Franttn Pike Rrvergate Plan 

TEXAS 

AMARILLO WeHtigton So SrC, 1619 S Kentucky 

ARLINGTON 2500 E Randol Mil Suite 113 

AUSTIN 8764 E Research Btvd Soulhwood Mai '50' Ben White 

BM 
BROWNSVILLE '639 Pnce Rd (Hwy 27) 
BEAUMONT 5330 Eisle- Frwy 
COOEGE STATION 2414 Tents Ave South 
CORPUS CHRIST) '711 S Stapt St 
DALLAS I534» Otlw PNWV . Suite H0O 2930 W Northwest 

Hwy 1 51 7 Mam SI. 2588 Royal In 
EL PASO 95'5 Gateway Well Kern Plaza Shopp.no Center 3100 

N Mesa 
FT WORTH 73' One "andv Center. 280' Alia Mere 
GALVESTON 5924 Broadway 
HARUNGEN '5'4 S Hwy 77 Sunshme Stnp 
HOUSTON 2' 1C-FM '960 10543 GuHFwy 5900 Nor* Fwy . 

5813 SW Fw, 809 OMas Si Holand Square Center. 10920 

East F-eeway Champion Forest Plan Champion forest Or and 

F M 1980 West 1018 Gessntr. 3278 South Loop West (So 

Mtai al 610) 
HUMBLE 19300 B Hwy 59 lal FM I960) 
HURST ".ortrcasi Ua I 
IRVING 20' ' West A«port Fwy 
LAREDO 'D2 East CaNor Rd 
LUBBOCK 3625 34th St 
MESOUITE T ow- Fasl C-ossmg Shoo Or 
ODESSA 6'3 A Easl 8th Strait 
RICHARDSON =k>etwood Sq SA: 202 W Campbel RrJ 320 S 

Central i.pr 
SAN ANTONIO 6O1 8 West Ave 4749 Cente'gale Rkrerbend 

Parvng Garage. 7'1 W Market St IDowntoimi 
WICHITA FALLS ' 720 A 9th St 

UTAH 

OGDEN • Mai Shopping Center 3672 Wall An 
OflEM Grand Central Plan 384 East I 1300 South 
MURRAY 6051 S State Ave 
SALT LAKE CITY 301 South Slate Si 

VIRGINIA 
ALEXANDRIA 3425 Kog St at Outker In 
ARLINGTON Crystal Qty 2301 So JeNeison Davis Hwy 
FAIRFAX Wesfltir Center no27ieeHwy 
LYNCHBUTO Hi s Plaza. Wards Rd 
NEWPORT NEWS Newmarkei South Shop Ctr 
NORFOLK 5731 Poplar Hail Or Wards Comet 122 E Lime Creek 

Rd 
RICHMOND Wmow Lawr S/C 1617 Witow Lawn Or 772B 

Midlothian Tumpfce 
ROANOKE ''ankkn Bog 3561 Frinktn Rd S W 
R08SLYN '9' 1 N Ft Mytr Or at Rl 29 

WASHINGTON 
BELLEVUE Crossroads Mali Nor* East 8th 8 156 Si 
BELLINGHAM I'll Co'nwai Ave Suite B 8 C 
FEDERAL WAY 33505 Ptcfc Hwy South 
0LYMP1A 106 H Wtson 
SEAHIE '8405 Aurora Ave N 1521 3rd Ave . SO?" 

Way NE 
SPOKANE 7 '02 N Dry-sun. E 12412 Sprsgue 
TACOMA '030 S Spragul 
TUKWILA 15425 53rd Ave S 
YAKIMA 1111 N first St 

WEST VIRGINIA 
DUNBAR. Dunbar Village Shop Ctr 
HUNTINGTON 2701 '1 5th An 

WISCONSIN 
APPLETON 2310 West CoAege Ave 
MADISON V West 'owne Ual 

MILWAUKEE 6450 N 76th St 779 N Muwtukee (Dowrttowni 
WEST ALUS 2717 South 108th St 



